/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Made with REALbasic™ / Communications & Internet / Other / PhatIRC! 1.0d 5 / Sourcez / phatIRC.π

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 1e 00 01 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 50 48 | 41 54 00 00 01 00 01 00 |AAAA..PH|AT......|
|00000020| 11 50 68 61 74 49 52 43 | 20 31 2e 30 64 35 20 50 |.PhatIRC| 1.0d5 P|
|00000030| 50 43 80 80 f7 03 80 80 | f7 03 01 00 00 00 05 0a |PC......|........|
|00000040| 49 74 27 73 20 50 68 61 | 74 21 0a 49 74 27 73 20 |It's Pha|t!.It's |
|00000050| 50 68 61 74 21 0a 49 74 | 27 73 20 50 68 61 74 21 |Phat!.It|'s Phat!|
|00000060| 01 00 0b 41 70 70 4e 61 | 6d 65 2e 65 78 65 00 0e |...AppNa|me.exe..|
|00000070| 4d 79 20 41 70 70 6c 69 | 63 61 74 69 6f 6e 88 03 |My Appli|cation..|
|00000080| 32 90 06 b0 03 06 69 63 | 6c 38 80 10 48 00 9f 00 |2.....ic|l8..H...|
|00000090| 48 00 48 e3 9f 00 48 a5 | a5 ff 00 00 00 00 00 00 |H.H...H.|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 48 48 9f 9f |........|....HH..|
|000000b0| 00 48 00 48 00 e3 9f 48 | a5 ff 00 00 00 00 00 00 |.H.H...H|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 48 48 9f 9f |........|....HH..|
|000000d0| 9f 9f 48 00 e3 9f 9f 9f | 48 ff 00 00 00 00 00 00 |..H.....|H.......|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff 48 9f 9f |........|.....H..|
|000000f0| 9f 9f 00 48 00 9f 9f a5 | ff 00 00 00 00 00 00 00 |...H....|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff 48 48 a5 |........|.....HH.|
|00000110| a5 48 48 00 48 48 a5 a5 | ff 00 00 00 00 00 00 00 |.HH.HH..|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff 48 48 |........|......HH|
|00000130| a5 48 48 48 48 48 a5 ff | 00 00 00 00 00 00 ff ff |.HHHHH..|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000150| 48 a5 a5 a5 48 ff ff 00 | 00 00 00 00 ff ff f8 f8 |H...H...|........|
|00000160| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 ff 00 00 |........|........|
|00000170| ff ff ff ff ff 00 00 00 | 00 00 ff ff f8 f8 f8 f8 |........|........|
|00000180| f8 f8 ff ff 00 00 00 00 | 00 00 00 00 00 ff 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | ff ff f9 f9 ff ff f8 f8 |........|........|
|000001a0| f8 f8 f8 f8 ff ff 00 00 | 00 00 00 00 00 00 ff 00 |........|........|
|000001b0| 00 00 00 00 00 00 ff ff | f9 f9 f9 f9 f9 f9 ff ff |........|........|
|000001c0| f8 f8 f8 f8 f8 f8 ff ff | 00 00 00 00 00 00 00 ff |........|........|
|000001d0| ff 00 00 00 ff ff f9 f9 | f9 f9 f9 f8 f9 f9 f9 fb |........|........|
|000001e0| ff ff f8 f8 f8 f8 f8 f8 | ff ff 00 00 00 00 00 00 |........|........|
|000001f0| 00 ff ff ff f9 f9 f9 f9 | f9 f8 f8 f9 f9 f9 f9 fb |........|........|
|00000200| fb f9 ff ff f8 f8 f8 f8 | f8 f8 ff ff 00 00 00 00 |........|........|
|00000210| ff ff f8 f8 ff ff f9 f9 | f9 f9 f9 f9 f9 fb fb fb |........|........|
|00000220| f9 f9 f9 f9 ff ff f8 f8 | ff ff fa ff 00 00 ff ff |........|........|
|00000230| f8 f8 f8 f8 f8 f8 ff ff | f9 fb fb fb fb fb fb f9 |........|........|
|00000240| f9 f9 f9 f9 f9 f9 ff ff | fa fa fa ff ff ff f8 f8 |........|........|
|00000250| f8 f8 f8 f8 f8 f8 f8 f8 | ff ff fb fb fb f9 f9 f9 |........|........|
|00000260| f9 f9 f9 f9 ff ff ff fa | 4e f6 fa ff ff ff ff f8 |........|N.......|
|00000270| f8 f8 f8 f8 f8 f8 f8 f8 | f8 f8 ff ff f9 f9 f9 f9 |........|........|
|00000280| f9 f9 ff ff fa fa ff 4e | f6 4e f6 ff ff f9 f9 ff |.......N|.N......|
|00000290| ff f8 f8 f8 f8 f8 f8 f8 | f8 f8 f8 f8 ff ff f9 f9 |........|........|
|000002a0| ff ff fa fa fa fa ff f6 | 4e f6 4e ff ff f9 f9 f9 |........|N.N.....|
|000002b0| f9 ff ff f8 f8 f8 f8 f8 | f8 f8 f8 f8 f8 f8 ff ff |........|........|
|000002c0| fa fa fa fa fa fa ff 4e | f6 4e f6 ff ff f9 47 47 |.......N|.N....GG|
|000002d0| f9 f9 f9 ff ff f8 f8 f8 | f8 f8 f8 f8 ff ff ff fa |........|........|
|000002e0| fa fa fa fa fa fa ff f6 | 4e f6 4e ff ff f9 47 47 |........|N.N...GG|
|000002f0| f9 f9 47 f9 f9 ff ff f8 | f8 f8 ff ff fa fa ff fa |..G.....|........|
|00000300| fa fa fa fa fa fc ff 4e | f6 4e f6 ff ff f9 47 f9 |.......N|.N....G.|
|00000310| f9 f9 47 f9 47 f9 f9 ff | ff ff fa fa fa fa ff fa |..G.G...|........|
|00000320| fa fa fa fa fa fc ff f6 | 4e f6 4e ff ff f9 47 f9 |........|N.N...G.|
|00000330| f9 f9 47 47 47 f9 f9 f9 | ff fa f6 4e f6 fa ff fc |..GGG...|...N....|
|00000340| fa fa fa fc fc fa ff fa | f6 4e fa ff ff f9 f9 f9 |........|.N......|
|00000350| f9 f9 47 f9 47 f9 f9 f9 | ff fa 4e f6 4e fa ff fa |..G.G...|..N.N...|
|00000360| fc fc fc fa fa fa ff fa | fa fa ff ff ff f9 f9 47 |........|.......G|
|00000370| f9 f9 f9 f9 47 f9 f9 f9 | ff 4e f6 4e f6 4e ff fa |....G...|.N.N.N..|
|00000380| fa fa fa f8 fa fa ff fa | ff ff 00 00 ff f9 47 47 |........|......GG|
|00000390| 47 f9 f9 47 f9 f9 f9 f9 | ff f6 4e f6 4e f6 ff fa |G..G....|..N.N...|
|000003a0| fa f8 f8 fa fa fa ff ff | 00 00 00 00 ff f9 47 f9 |........|......G.|
|000003b0| 47 f9 f9 f9 47 47 f9 f9 | ff 4e f6 4e f6 4e ff fa |G...GG..|.N.N.N..|
|000003c0| fa fa fa fa ff ff 00 00 | 00 00 00 00 00 ff ff f9 |........|........|
|000003d0| f9 f9 f9 f9 47 f9 f9 f9 | ff f6 4e f6 4e f6 ff fa |....G...|..N.N...|
|000003e0| fa fa ff ff 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|000003f0| ff f9 f9 f9 47 f9 f9 f9 | ff fa f6 4e f6 fa ff fa |....G...|...N....|
|00000400| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 ff ff f9 f9 f9 f9 f9 | ff fa 4e f6 4e fa ff ff |........|..N.N...|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 ff ff f9 f9 f9 | ff fa fa fa ff ff 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 ff ff f9 | ff fa ff ff 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 ff | ff ff 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 69 63 6c 34 |........|....icl4|
|00000490| 80 08 00 d0 00 08 d0 0e | ef 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 dd 00 00 08 d0 | ef 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 dd dd 00 8d dd | 0f 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 f0 dd dd 00 0d de | f0 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 f0 0e e0 00 00 ee | f0 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 0f 00 e0 00 00 ef | 00 00 00 ff 00 00 00 00 |........|........|
|000004f0| 00 00 00 ff 0e ee 0f f0 | 00 00 ff cc ff 00 00 00 |........|........|
|00000500| 00 00 0f 00 ff ff f0 00 | 00 ff cc cc cc ff 00 00 |........|........|
|00000510| 00 00 0f 00 00 00 00 00 | ff dd ff cc cc cc ff 00 |........|........|
|00000520| 00 00 00 f0 00 00 00 ff | dd dd dd ff cc cc cc ff |........|........|
|00000530| 00 00 00 0f f0 00 ff dd | dd dc dd de ff cc cc cc |........|........|
|00000540| ff 00 00 00 0f ff dd dd | dc cd dd de ed ff cc cc |........|........|
|00000550| cc ff 00 00 ff cc ff dd | dd dd de ee dd dd ff cc |........|........|
|00000560| ff df 00 ff cc cc cc ff | de ee ee ed dd dd dd ff |........|........|
|00000570| dd df ff cc cc cc cc cc | ff ee ed dd dd dd ff fd |........|........|
|00000580| cc df ff fc cc cc cc cc | cc ff dd dd dd ff dd fc |........|........|
|00000590| cc cf fd df fc cc cc cc | cc cc ff dd ff dd dd fc |........|........|
|000005a0| cc cf fd dd df fc cc cc | cc cc cc ff dd dd dd fc |........|........|
|000005b0| cc cf fd 33 dd df fc cc | cc cc ff fd dd dd dd fc |...3....|........|
|000005c0| cc cf fd 33 dd 3d df fc | cc ff dd fd dd dd de fc |...3.=..|........|
|000005d0| cc cf fd 3d dd 3d 3d df | ff dd dd fd dd dd de fc |...=.==.|........|
|000005e0| cc cf fd 3d dd 33 3d dd | fd cc cd fe dd de ed fd |...=.3=.|........|
|000005f0| cc df fd dd dd 3d 3d dd | fd cc cd fd ee ed dd fd |.....==.|........|
|00000600| dd ff fd d3 dd dd 3d dd | fc cc cc fd dd dc dd fd |......=.|........|
|00000610| ff 00 fd 33 3d d3 dd dd | fc cc cc fd dc cd dd ff |...3=...|........|
|00000620| 00 00 fd 3d 3d dd 33 dd | fc cc cc fd dd dd ff 00 |...==.3.|........|
|00000630| 00 00 0f fd dd dd 3d dd | fc cc cc fd dd ff 00 00 |......=.|........|
|00000640| 00 00 00 0f fd dd 3d dd | fd cc cd fd ff 00 00 00 |......=.|........|
|00000650| 00 00 00 00 0f fd dd dd | fd cc cd ff 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 0f fd dd | fd dd ff 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 0f fd | fd ff 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 0f | ff 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 69 63 73 34 80 02 | 0d 08 8e f0 00 00 00 00 |..ics4..|........|
|000006a0| fd d0 8e f0 00 00 00 00 | fe e0 0f f0 0f 00 00 00 |........|........|
|000006b0| ff ff ff 0f fc ff 00 00 | ff 00 0f fd ff cc ff 00 |........|........|
|000006c0| 0f ff fd dd de ff cc ff | 0f fc ff ee ee dd ff ff |........|........|
|000006d0| ff cc cc ff ed df ff cf | ff ff cc cc ff fd df cf |........|........|
|000006e0| f3 df ff cf ff dd ef cf | fd dd df fd df de ef cf |........|........|
|000006f0| fd dd dd fc df ee df ff | fd dd dd fc cf dd ff 00 |........|........|
|00000700| ff fd dd fc df ff 00 00 | 00 ff fd fd ff 00 00 00 |........|........|
|00000710| 00 00 ff ff 00 00 00 00 | 69 63 73 38 80 04 48 9f |........|ics8..H.|
|00000720| 48 e3 e3 a5 ff 00 00 00 | 00 00 00 00 00 00 ff 9f |H.......|........|
|00000730| 9f 48 e3 a5 ff 00 00 00 | 00 00 00 00 00 00 ff a5 |.H......|........|
|00000740| a5 48 48 ff ff 00 00 ff | 00 00 00 00 00 00 ff ff |.HH.....|........|
|00000750| ff ff ff ff 00 ff ff f8 | ff ff 00 00 00 00 ff ff |........|........|
|00000760| 00 00 00 ff ff f9 ff ff | f8 f8 ff ff 00 00 00 ff |........|........|
|00000770| ff ff ff f9 f9 f9 f9 fb | ff ff f8 f8 ff ff 00 ff |........|........|
|00000780| ff f8 ff ff fb fb fb fb | f9 f9 ff ff ff ff ff ff |........|........|
|00000790| f8 f8 f8 f8 ff ff fb f9 | f9 ff ff ff f6 ff ff ff |........|........|
|000007a0| ff ff f8 f8 f8 f8 ff ff | ff fa fa ff f6 ff ff 47 |........|.......G|
|000007b0| f9 ff ff ff f8 ff ff ff | fa fa fc ff f6 ff ff f9 |........|........|
|000007c0| f9 f9 f9 ff ff fa fa ff | fa fc fc ff f6 ff ff f9 |........|........|
|000007d0| f9 f9 f9 f9 ff f6 fa ff | fc fc fa ff ff ff ff f9 |........|........|
|000007e0| f9 f9 f9 f9 ff f6 f6 ff | fa fa ff ff 00 00 ff ff |........|........|
|000007f0| ff f9 f9 f9 ff f6 fa ff | ff ff 00 00 00 00 00 00 |........|........|
|00000800| ff ff ff f9 ff fa ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 ff ff ff ff 00 00 | 00 00 00 00 00 00 49 43 |........|......IC|
|00000820| 4e 23 80 04 21 9c 00 00 | 30 6c 00 00 3c f4 00 00 |N#..!...|0l..<...|
|00000830| bc 78 00 00 98 38 00 00 | 48 30 30 00 37 60 cc 00 |.x...8..|H00.7`..|
|00000840| 4f 83 03 00 40 0c c0 c0 | 20 30 30 30 18 c0 1c 0c |O...@...| 000....|
|00000850| 07 00 1b 03 0c c0 70 cf | 30 37 e0 3f c0 0f 80 f3 |......p.|07.?....|
|00000860| e0 03 03 e1 98 00 cf e1 | 86 00 3f e1 b1 80 ff e1 |........|..?.....|
|00000870| b2 63 ff e1 a2 9f ff e1 | a3 8c 7f f3 82 8c 7f ff |.c......|........|
|00000880| 90 88 3e fc b9 08 39 f0 | a8 c8 3f c0 60 88 3f 00 |..>...9.|..?.`.?.|
|00000890| 18 8c 7c 00 06 0c 70 00 | 01 8f c0 00 00 6f 00 00 |..|...p.|.....o..|
|000008a0| 00 1c 00 00 ff fc 00 00 | ff fc 00 00 ff fc 00 00 |........|........|
|000008b0| ff f8 00 00 ff f8 00 00 | 7f f0 30 00 3f e0 fc 00 |........|..0.?...|
|000008c0| 4f 83 ff 00 40 0f ff c0 | 20 3f ff f0 18 ff ff fc |O...@...| ?......|
|000008d0| 07 ff ff ff 0f ff ff ff | 3f ff ff ff ff ff ff ff |........|?.......|
|000008e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000900| ff ff ff fc ff ff ff f0 | ff ff ff c0 7f ff ff 00 |........|........|
|00000910| 1f ff fc 00 07 ff f0 00 | 01 ff c0 00 00 7f 00 00 |........|........|
|00000920| 00 1c 00 00 69 63 73 23 | 80 01 5e 00 ee 00 e6 40 |....ics#|..^....@|
|00000930| fd b0 c6 cc 78 73 6f cf | c3 9d f0 fd dd fd 87 fd |....xso.|........|
|00000940| 82 ff 82 7c e2 f0 3b c0 | 0f 00 fe 00 fe 00 fe 40 |...|..;.|.......@|
|00000950| ff f0 ff fc 7f ff 7f ff | ff ff ff ff ff ff ff ff |........|........|
|00000960| ff ff ff fc ff f0 3f c0 | 0f 00 02 04 74 65 78 74 |......?.|....text|
|00000970| 04 52 2a 63 68 04 54 45 | 58 54 00 00 03 61 6e 79 |.R*ch.TE|XT...any|
|00000980| 00 00 00 00 01 41 04 56 | 69 65 77 03 69 72 63 05 |.....A.V|iew.irc.|
|00000990| a5 04 b9 01 00 00 00 00 | e8 0f 13 04 4e 61 6d 65 |........|....Name|
|000009a0| 03 69 72 63 05 46 72 61 | 6d 65 01 30 0c 48 61 73 |.irc.Fra|me.0.Has|
|000009b0| 42 61 63 6b 43 6f 6c 6f | 72 05 46 61 6c 73 65 09 |BackColo|r.False.|
|000009c0| 42 61 63 6b 43 6f 6c 6f | 72 08 31 36 37 37 37 32 |BackColo|r.167772|
|000009d0| 31 35 08 42 61 63 6b 64 | 72 6f 70 01 30 05 54 69 |15.Backd|rop.0.Ti|
|000009e0| 74 6c 65 14 50 68 61 74 | 49 52 43 20 31 2e 30 20 |tle.Phat|IRC 1.0 |
|000009f0| 62 79 20 54 65 72 6e 21 | 07 56 69 73 69 62 6c 65 |by Tern!|.Visible|
|00000a00| 04 54 72 75 65 08 43 6c | 6f 73 65 42 6f 78 04 54 |.True.Cl|oseBox.T|
|00000a10| 72 75 65 08 47 72 6f 77 | 49 63 6f 6e 05 46 61 6c |rue.Grow|Icon.Fal|
|00000a20| 73 65 08 5a 6f 6f 6d 49 | 63 6f 6e 05 46 61 6c 73 |se.ZoomI|con.Fals|
|00000a30| 65 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 09 4d |e.Balloo|nHelp..M|
|00000a40| 61 63 50 72 6f 63 49 44 | 01 30 09 50 6c 61 63 65 |acProcID|.0.Place|
|00000a50| 6d 65 6e 74 01 30 05 57 | 69 64 74 68 03 33 33 33 |ment.0.W|idth.333|
|00000a60| 06 48 65 69 67 68 74 03 | 32 39 38 08 4d 69 6e 57 |.Height.|298.MinW|
|00000a70| 69 64 74 68 02 36 34 09 | 4d 69 6e 48 65 69 67 68 |idth.64.|MinHeigh|
|00000a80| 74 02 36 34 08 4d 61 78 | 57 69 64 74 68 05 33 32 |t.64.Max|Width.32|
|00000a90| 30 30 30 09 4d 61 78 48 | 65 69 67 68 74 05 33 32 |000.MaxH|eight.32|
|00000aa0| 30 30 30 07 00 03 69 72 | 63 b8 01 06 41 70 70 6c |000...ir|c...Appl|
|00000ab0| 65 74 00 03 14 64 61 74 | 61 42 75 66 66 65 72 20 |et...dat|aBuffer |
|00000ac0| 61 73 20 73 74 72 69 6e | 67 00 13 53 6f 75 6e 64 |as strin|g..Sound|
|00000ad0| 46 58 28 39 29 20 61 73 | 20 53 6f 75 6e 64 00 15 |FX(9) as| Sound..|
|00000ae0| 4c 6f 63 61 6c 49 50 43 | 6f 64 65 20 61 73 20 73 |LocalIPC|ode as s|
|00000af0| 74 72 69 6e 67 00 0a 0e | 45 78 65 63 75 74 65 43 |tring...|ExecuteC|
|00000b00| 6f 6d 6d 61 6e 64 12 43 | 6f 6d 47 69 76 65 6e 20 |ommand.C|omGiven |
|00000b10| 61 73 20 73 74 72 69 6e | 67 00 00 ab 01 0b ab 01 |as strin|g.......|
|00000b20| 0b 87 02 26 53 75 62 20 | 45 78 65 63 75 74 65 43 |...&Sub |ExecuteC|
|00000b30| 6f 6d 6d 61 6e 64 28 43 | 6f 6d 47 69 76 65 6e 20 |ommand(C|omGiven |
|00000b40| 61 73 20 73 74 72 69 6e | 67 29 16 64 69 6d 20 43 |as strin|g).dim C|
|00000b50| 6f 6d 46 6f 75 6e 64 20 | 61 73 20 73 74 72 69 6e |omFound |as strin|
|00000b60| 67 17 64 69 6d 20 46 49 | 74 65 6d 20 61 73 20 46 |g.dim FI|tem as F|
|00000b70| 6f 6c 64 65 72 49 74 65 | 6d 10 64 69 6d 20 69 20 |olderIte|m.dim i |
|00000b80| 61 73 20 69 6e 74 65 67 | 65 72 18 64 69 6d 20 73 |as integ|er.dim s|
|00000b90| 6c 6f 74 46 6f 75 6e 64 | 20 61 73 20 69 6e 74 65 |lotFound| as inte|
|00000ba0| 67 65 72 00 95 01 43 6f | 6d 46 6f 75 6e 64 20 3d |ger...Co|mFound =|
|00000bb0| 20 55 70 70 65 72 63 61 | 73 65 28 6d 69 64 28 50 | Upperca|se(mid(P|
|00000bc0| 61 72 73 65 4c 69 6e 65 | 28 43 6f 6d 47 69 76 65 |arseLine|(ComGive|
|00000bd0| 6e 2c 20 31 29 2c 20 32 | 2c 20 6c 65 6e 28 50 61 |n, 1), 2|, len(Pa|
|00000be0| 72 73 65 4c 69 6e 65 28 | 43 6f 6d 47 69 76 65 6e |rseLine(|ComGiven|
|00000bf0| 2c 20 31 29 29 20 2d 20 | 31 29 29 1b 27 20 45 78 |, 1)) - |1)).' Ex|
|00000c00| 74 72 61 63 74 20 74 68 | 65 20 62 61 73 69 63 20 |tract th|e basic |
|00000c10| 63 6f 6d 6d 61 6e 64 00 | 14 73 65 6c 65 63 74 20 |command.|.select |
|00000c20| 63 61 73 65 20 43 6f 6d | 46 6f 75 6e 64 0a 63 61 |case Com|Found.ca|
|00000c30| 73 65 20 22 44 43 43 22 | 1d 69 66 20 64 63 63 2e |se "DCC"|.if dcc.|
|00000c40| 63 6f 6e 53 74 61 74 75 | 73 20 3d 20 66 61 6c 73 |conStatu|s = fals|
|00000c50| 65 20 74 68 65 6e 32 69 | 66 20 55 70 70 65 72 63 |e then2i|f Upperc|
|00000c60| 61 73 65 28 50 61 72 73 | 65 4c 69 6e 65 28 43 6f |ase(Pars|eLine(Co|
|00000c70| 6d 47 69 76 65 6e 2c 20 | 32 29 29 20 3d 20 22 43 |mGiven, |2)) = "C|
|00000c80| 48 41 54 22 20 74 68 65 | 6e b8 01 69 72 63 73 6f |HAT" the|n..ircso|
|00000c90| 63 6b 65 74 2e 77 72 69 | 74 65 20 22 50 52 49 56 |cket.wri|te "PRIV|
|00000ca0| 4d 53 47 20 22 20 2b 20 | 50 61 72 73 65 4c 69 6e |MSG " + |ParseLin|
|00000cb0| 65 28 43 6f 6d 47 69 76 | 65 6e 2c 20 33 29 20 2b |e(ComGiv|en, 3) +|
|00000cc0| 20 22 20 3a 22 20 2b 20 | 43 68 72 28 31 29 20 2b | " :" + |Chr(1) +|
|00000cd0| 20 22 44 43 43 20 43 48 | 41 54 20 43 48 41 54 20 | "DCC CH|AT CHAT |
|00000ce0| 22 20 2b 20 4c 6f 63 61 | 6c 49 50 43 6f 64 65 20 |" + Loca|lIPCode |
|00000cf0| 2b 20 22 20 31 30 32 34 | 22 20 2b 20 43 68 72 28 |+ " 1024|" + Chr(|
|00000d00| 31 30 29 19 64 63 63 2e | 64 63 63 53 6f 63 6b 65 |10).dcc.|dccSocke|
|00000d10| 74 2e 70 6f 72 74 20 3d | 20 31 30 32 34 14 64 63 |t.port =| 1024.dc|
|00000d20| 63 2e 64 63 63 53 6f 63 | 6b 65 74 2e 6c 69 73 74 |c.dccSoc|ket.list|
|00000d30| 65 6e 37 64 63 63 2e 53 | 74 61 74 75 73 4c 61 62 |en7dcc.S|tatusLab|
|00000d40| 65 6c 2e 74 65 78 74 20 | 3d 20 22 57 61 69 74 69 |el.text |= "Waiti|
|00000d50| 6e 67 20 66 6f 72 20 43 | 48 41 54 20 61 63 63 65 |ng for C|HAT acce|
|00000d60| 70 74 61 6e 63 65 2e 2e | 2e 22 19 64 63 63 2e 64 |ptance..|.".dcc.d|
|00000d70| 63 63 54 79 70 65 2e 74 | 65 78 74 20 3d 20 22 43 |ccType.t|ext = "C|
|00000d80| 48 41 54 22 08 64 63 63 | 2e 73 68 6f 77 06 65 6e |HAT".dcc|.show.en|
|00000d90| 64 20 69 66 00 32 69 66 | 20 55 70 70 65 72 63 61 |d if.2if| Upperca|
|00000da0| 73 65 28 50 61 72 73 65 | 4c 69 6e 65 28 43 6f 6d |se(Parse|Line(Com|
|00000db0| 47 69 76 65 6e 2c 20 32 | 29 29 20 3d 20 22 53 45 |Given, 2|)) = "SE|
|00000dc0| 4e 44 22 20 74 68 65 6e | 20 46 49 74 65 6d 20 3d |ND" then| FItem =|
|00000dd0| 20 47 65 74 4f 70 65 6e | 46 6f 6c 64 65 72 49 74 | GetOpen|FolderIt|
|00000de0| 65 6d 28 22 61 6e 79 22 | 29 14 69 66 20 46 49 74 |em("any"|).if FIt|
|00000df0| 65 6d 20 3c 3e 20 6e 69 | 6c 20 74 68 65 6e a8 02 |em <> ni|l then..|
|00000e00| 69 72 63 73 6f 63 6b 65 | 74 2e 77 72 69 74 65 20 |ircsocke|t.write |
|00000e10| 22 50 52 49 56 4d 53 47 | 20 22 20 2b 20 50 61 72 |"PRIVMSG| " + Par|
|00000e20| 73 65 4c 69 6e 65 28 43 | 6f 6d 47 69 76 65 6e 2c |seLine(C|omGiven,|
|00000e30| 20 33 29 20 2b 20 22 20 | 3a 22 20 2b 20 43 68 72 | 3) + " |:" + Chr|
|00000e40| 28 31 29 20 2b 20 22 44 | 43 43 20 53 45 4e 44 20 |(1) + "D|CC SEND |
|00000e50| 22 20 2b 20 46 49 74 65 | 6d 2e 6e 61 6d 65 20 2b |" + FIte|m.name +|
|00000e60| 20 22 20 22 20 2b 20 4c | 6f 63 61 6c 49 50 43 6f | " " + L|ocalIPCo|
|00000e70| 64 65 20 2b 20 22 20 31 | 30 32 34 20 22 20 2b 20 |de + " 1|024 " + |
|00000e80| 52 65 61 6c 53 74 72 28 | 46 49 74 65 6d 2e 4c 65 |RealStr(|FItem.Le|
|00000e90| 6e 67 74 68 29 20 2b 20 | 43 68 72 28 31 29 20 2b |ngth) + |Chr(1) +|
|00000ea0| 20 43 68 72 28 31 30 29 | 15 64 63 63 2e 74 65 6d | Chr(10)|.dcc.tem|
|00000eb0| 70 46 49 74 65 6d 20 3d | 20 46 49 74 65 6d 19 64 |pFItem =| FItem.d|
|00000ec0| 63 63 2e 64 63 63 53 6f | 63 6b 65 74 2e 70 6f 72 |cc.dccSo|cket.por|
|00000ed0| 74 20 3d 20 31 30 32 34 | 14 64 63 63 2e 64 63 63 |t = 1024|.dcc.dcc|
|00000ee0| 53 6f 63 6b 65 74 2e 6c | 69 73 74 65 6e 36 64 63 |Socket.l|isten6dc|
|00000ef0| 63 2e 53 74 61 74 75 73 | 4c 61 62 65 6c 2e 74 65 |c.Status|Label.te|
|00000f00| 78 74 20 3d 20 22 57 61 | 69 74 69 6e 67 20 66 6f |xt = "Wa|iting fo|
|00000f10| 72 20 47 45 54 20 61 63 | 63 65 70 74 61 6e 63 65 |r GET ac|ceptance|
|00000f20| 2e 2e 2e 22 18 64 63 63 | 2e 64 63 63 54 79 70 65 |...".dcc|.dccType|
|00000f30| 2e 74 65 78 74 20 3d 20 | 22 47 45 54 22 2d 64 63 |.text = |"GET"-dc|
|00000f40| 63 2e 44 43 43 53 74 72 | 65 61 6d 20 3d 20 46 49 |c.DCCStr|eam = FI|
|00000f50| 74 65 6d 2e 4f 70 65 6e | 41 73 42 69 6e 61 72 79 |tem.Open|AsBinary|
|00000f60| 46 69 6c 65 28 66 61 6c | 73 65 29 08 64 63 63 2e |File(fal|se).dcc.|
|00000f70| 73 68 6f 77 06 65 6e 64 | 20 69 66 06 65 6e 64 20 |show.end| if.end |
|00000f80| 69 66 06 65 6e 64 20 69 | 66 0d 63 61 73 65 20 22 |if.end i|f.case "|
|00000f90| 49 47 4e 4f 52 45 22 30 | 27 20 46 69 6e 64 20 61 |IGNORE"0|' Find a|
|00000fa0| 20 73 70 6f 74 20 6f 6e | 20 74 68 65 20 69 67 6e | spot on| the ign|
|00000fb0| 6f 72 65 20 6c 69 73 74 | 20 61 6e 64 20 61 64 64 |ore list| and add|
|00000fc0| 20 73 6f 6d 65 6f 6e 65 | 0e 73 6c 6f 74 46 6f 75 | someone|.slotFou|
|00000fd0| 6e 64 20 3d 20 2d 31 0f | 66 6f 72 20 69 20 3d 20 |nd = -1.|for i = |
|00000fe0| 31 20 74 6f 20 35 30 1d | 69 66 20 66 72 69 65 6e |1 to 50.|if frien|
|00000ff0| 64 73 2e 4d 61 73 6b 73 | 28 69 29 20 3d 20 22 22 |ds.Masks|(i) = ""|
|00001000| 20 74 68 65 6e 0d 73 6c | 6f 74 46 6f 75 6e 64 20 | then.sl|otFound |
|00001010| 3d 20 69 06 69 20 3d 20 | 35 30 06 65 6e 64 20 69 |= i.i = |50.end i|
|00001020| 66 04 6e 65 78 74 00 16 | 69 66 20 73 6c 6f 74 46 |f.next..|if slotF|
|00001030| 6f 75 6e 64 20 3d 20 2d | 31 20 74 68 65 6e 1f 4d |ound = -|1 then.M|
|00001040| 73 67 42 6f 78 20 22 4e | 6f 74 20 65 6e 6f 75 67 |sgBox "N|ot enoug|
|00001050| 68 20 48 6f 6d 69 65 20 | 73 6c 6f 74 7a 22 04 65 |h Homie |slotz".e|
|00001060| 6c 73 65 31 66 72 69 65 | 6e 64 73 2e 4d 61 73 6b |lse1frie|nds.Mask|
|00001070| 73 28 73 6c 6f 74 46 6f | 75 6e 64 29 20 3d 20 50 |s(slotFo|und) = P|
|00001080| 61 72 73 65 4c 69 6e 65 | 28 43 6f 6d 47 69 76 65 |arseLine|(ComGive|
|00001090| 6e 2c 20 32 29 23 66 72 | 69 65 6e 64 73 2e 4f 70 |n, 2)#fr|iends.Op|
|000010a0| 4f 6e 4a 6f 69 6e 28 73 | 6c 6f 74 46 6f 75 6e 64 |OnJoin(s|lotFound|
|000010b0| 29 20 3d 20 66 61 6c 73 | 65 26 66 72 69 65 6e 64 |) = fals|e&friend|
|000010c0| 73 2e 56 6f 69 63 65 4f | 6e 4a 6f 69 6e 28 73 6c |s.VoiceO|nJoin(sl|
|000010d0| 6f 74 46 6f 75 6e 64 29 | 20 3d 20 66 61 6c 73 65 |otFound)| = false|
|000010e0| 24 66 72 69 65 6e 64 73 | 2e 42 61 6e 4f 6e 4a 6f |$friends|.BanOnJo|
|000010f0| 69 6e 28 73 6c 6f 74 46 | 6f 75 6e 64 29 20 3d 20 |in(slotF|ound) = |
|00001100| 66 61 6c 73 65 23 66 72 | 69 65 6e 64 73 2e 4b 69 |false#fr|iends.Ki|
|00001110| 63 6b 52 65 61 73 6f 6e | 73 28 73 6c 6f 74 46 6f |ckReason|s(slotFo|
|00001120| 75 6e 64 29 20 3d 20 22 | 22 27 66 72 69 65 6e 64 |und) = "|"'friend|
|00001130| 73 2e 49 67 6e 6f 72 65 | 50 72 69 76 4d 73 67 28 |s.Ignore|PrivMsg(|
|00001140| 73 6c 6f 74 46 6f 75 6e | 64 29 20 3d 20 74 72 75 |slotFoun|d) = tru|
|00001150| 65 06 65 6e 64 20 69 66 | 0e 63 61 73 65 20 22 50 |e.end if|.case "P|
|00001160| 45 52 4d 42 41 4e 22 30 | 27 20 46 69 6e 64 20 61 |ERMBAN"0|' Find a|
|00001170| 20 73 70 6f 74 20 6f 6e | 20 74 68 65 20 69 67 6e | spot on| the ign|
|00001180| 6f 72 65 20 6c 69 73 74 | 20 61 6e 64 20 61 64 64 |ore list| and add|
|00001190| 20 73 6f 6d 65 6f 6e 65 | 0e 73 6c 6f 74 46 6f 75 | someone|.slotFou|
|000011a0| 6e 64 20 3d 20 2d 31 0f | 66 6f 72 20 69 20 3d 20 |nd = -1.|for i = |
|000011b0| 31 20 74 6f 20 35 30 1d | 69 66 20 66 72 69 65 6e |1 to 50.|if frien|
|000011c0| 64 73 2e 4d 61 73 6b 73 | 28 69 29 20 3d 20 22 22 |ds.Masks|(i) = ""|
|000011d0| 20 74 68 65 6e 0d 73 6c | 6f 74 46 6f 75 6e 64 20 | then.sl|otFound |
|000011e0| 3d 20 69 06 69 20 3d 20 | 35 30 06 65 6e 64 20 69 |= i.i = |50.end i|
|000011f0| 66 04 6e 65 78 74 00 16 | 69 66 20 73 6c 6f 74 46 |f.next..|if slotF|
|00001200| 6f 75 6e 64 20 3d 20 2d | 31 20 74 68 65 6e 1f 4d |ound = -|1 then.M|
|00001210| 73 67 42 6f 78 20 22 4e | 6f 74 20 65 6e 6f 75 67 |sgBox "N|ot enoug|
|00001220| 68 20 48 6f 6d 69 65 20 | 73 6c 6f 74 7a 22 04 65 |h Homie |slotz".e|
|00001230| 6c 73 65 31 66 72 69 65 | 6e 64 73 2e 4d 61 73 6b |lse1frie|nds.Mask|
|00001240| 73 28 73 6c 6f 74 46 6f | 75 6e 64 29 20 3d 20 50 |s(slotFo|und) = P|
|00001250| 61 72 73 65 4c 69 6e 65 | 28 43 6f 6d 47 69 76 65 |arseLine|(ComGive|
|00001260| 6e 2c 20 32 29 23 66 72 | 69 65 6e 64 73 2e 4f 70 |n, 2)#fr|iends.Op|
|00001270| 4f 6e 4a 6f 69 6e 28 73 | 6c 6f 74 46 6f 75 6e 64 |OnJoin(s|lotFound|
|00001280| 29 20 3d 20 66 61 6c 73 | 65 26 66 72 69 65 6e 64 |) = fals|e&friend|
|00001290| 73 2e 56 6f 69 63 65 4f | 6e 4a 6f 69 6e 28 73 6c |s.VoiceO|nJoin(sl|
|000012a0| 6f 74 46 6f 75 6e 64 29 | 20 3d 20 66 61 6c 73 65 |otFound)| = false|
|000012b0| 23 66 72 69 65 6e 64 73 | 2e 42 61 6e 4f 6e 4a 6f |#friends|.BanOnJo|
|000012c0| 69 6e 28 73 6c 6f 74 46 | 6f 75 6e 64 29 20 3d 20 |in(slotF|ound) = |
|000012d0| 74 72 75 65 30 66 72 69 | 65 6e 64 73 2e 4b 69 63 |true0fri|ends.Kic|
|000012e0| 6b 52 65 61 73 6f 6e 73 | 28 73 6c 6f 74 46 6f 75 |kReasons|(slotFou|
|000012f0| 6e 64 29 20 3d 20 22 62 | 61 6e 6e 65 64 3a 20 70 |nd) = "b|anned: p|
|00001300| 68 65 65 72 22 28 66 72 | 69 65 6e 64 73 2e 49 67 |heer"(fr|iends.Ig|
|00001310| 6e 6f 72 65 50 72 69 76 | 4d 73 67 28 73 6c 6f 74 |norePriv|Msg(slot|
|00001320| 46 6f 75 6e 64 29 20 3d | 20 66 61 6c 73 65 06 65 |Found) =| false.e|
|00001330| 6e 64 20 69 66 0c 63 61 | 73 65 20 22 4c 45 45 43 |nd if.ca|se "LEEC|
|00001340| 48 22 a1 01 69 72 63 73 | 6f 63 6b 65 74 2e 77 72 |H"..ircs|ocket.wr|
|00001350| 69 74 65 20 22 50 52 49 | 56 4d 53 47 20 22 20 2b |ite "PRI|VMSG " +|
|00001360| 20 50 61 72 73 65 4c 69 | 6e 65 28 43 6f 6d 47 69 | ParseLi|ne(ComGi|
|00001370| 76 65 6e 2c 20 32 29 20 | 2b 20 22 20 22 20 2b 20 |ven, 2) |+ " " + |
|00001380| 43 68 72 28 31 29 20 2b | 20 22 56 45 52 53 49 4f |Chr(1) +| "VERSIO|
|00001390| 4e 22 20 2b 20 43 68 72 | 28 31 29 20 2b 20 43 68 |N" + Chr|(1) + Ch|
|000013a0| 72 28 31 30 29 30 49 52 | 43 43 6f 6e 73 6f 6c 65 |r(10)0IR|CConsole|
|000013b0| 2e 4c 65 65 63 68 69 6e | 67 46 72 6f 6d 20 3d 20 |.Leechin|gFrom = |
|000013c0| 50 61 72 73 65 4c 69 6e | 65 28 43 6f 6d 47 69 76 |ParseLin|e(ComGiv|
|000013d0| 65 6e 2c 20 32 29 0b 63 | 61 73 65 20 22 4e 49 43 |en, 2).c|ase "NIC|
|000013e0| 4b 22 3a 69 72 63 73 6f | 63 6b 65 74 2e 77 72 69 |K":ircso|cket.wri|
|000013f0| 74 65 20 22 4e 49 43 4b | 20 22 20 2b 20 50 61 72 |te "NICK| " + Par|
|00001400| 73 65 4c 69 6e 65 28 43 | 6f 6d 47 69 76 65 6e 2c |seLine(C|omGiven,|
|00001410| 20 32 29 20 2b 20 43 68 | 72 28 31 30 29 0c 63 61 | 2) + Ch|r(10).ca|
|00001420| 73 65 20 22 51 55 4f 54 | 45 22 30 69 72 63 73 6f |se "QUOT|E"0ircso|
|00001430| 63 6b 65 74 2e 77 72 69 | 74 65 20 53 69 6d 70 6c |cket.wri|te Simpl|
|00001440| 65 52 69 70 28 43 6f 6d | 47 69 76 65 6e 2c 20 32 |eRip(Com|Given, 2|
|00001450| 29 20 2b 20 43 68 72 28 | 31 30 29 0b 63 61 73 65 |) + Chr(|10).case|
|00001460| 20 22 4a 4f 49 4e 22 3a | 69 72 63 73 6f 63 6b 65 | "JOIN":|ircsocke|
|00001470| 74 2e 77 72 69 74 65 20 | 22 4a 4f 49 4e 20 22 20 |t.write |"JOIN " |
|00001480| 2b 20 53 69 6d 70 6c 65 | 52 69 70 28 43 6f 6d 47 |+ Simple|Rip(ComG|
|00001490| 69 76 65 6e 2c 20 32 29 | 20 2b 20 43 68 72 28 31 |iven, 2)| + Chr(1|
|000014a0| 30 29 0b 63 61 73 65 20 | 22 51 55 49 54 22 11 69 |0).case |"QUIT".i|
|000014b0| 72 63 63 6f 6e 73 6f 6c | 65 2e 44 6f 51 75 69 74 |rcconsol|e.DoQuit|
|000014c0| 0a 63 61 73 65 20 22 4d | 53 47 22 22 50 72 69 76 |.case "M|SG""Priv|
|000014d0| 4d 73 67 73 2e 46 72 6f | 6d 46 69 65 6c 64 2e 65 |Msgs.Fro|mField.e|
|000014e0| 6e 61 62 6c 65 64 20 3d | 20 66 61 6c 73 65 00 bd |nabled =| false..|
|000014f0| 01 50 72 69 76 4d 73 67 | 73 2e 46 72 6f 6d 46 69 |.PrivMsg|s.FromFi|
|00001500| 65 6c 64 2e 74 65 78 74 | 20 3d 20 50 72 69 76 4d |eld.text| = PrivM|
|00001510| 73 67 73 2e 46 72 6f 6d | 46 69 65 6c 64 2e 74 65 |sgs.From|Field.te|
|00001520| 78 74 20 2b 20 22 2d 3e | 20 2a 22 20 2b 20 50 61 |xt + "->| *" + Pa|
|00001530| 72 73 65 4c 69 6e 65 28 | 43 6f 6d 47 69 76 65 6e |rseLine(|ComGiven|
|00001540| 2c 20 32 29 20 2b 20 22 | 2a 20 22 20 2b 20 53 69 |, 2) + "|* " + Si|
|00001550| 6d 70 6c 65 52 69 70 28 | 43 6f 6d 47 69 76 65 6e |mpleRip(|ComGiven|
|00001560| 2c 20 33 29 20 2b 20 43 | 68 72 28 31 33 29 18 50 |, 3) + C|hr(13).P|
|00001570| 72 69 76 4d 73 67 73 2e | 54 69 6d 65 72 31 2e 6d |rivMsgs.|Timer1.m|
|00001580| 6f 64 65 20 3d 20 31 00 | 9d 01 69 72 63 73 6f 63 |ode = 1.|..ircsoc|
|00001590| 6b 65 74 2e 77 72 69 74 | 65 20 22 50 52 49 56 4d |ket.writ|e "PRIVM|
|000015a0| 53 47 20 22 20 2b 20 50 | 61 72 73 65 4c 69 6e 65 |SG " + P|arseLine|
|000015b0| 28 43 6f 6d 47 69 76 65 | 6e 2c 20 32 29 20 2b 20 |(ComGive|n, 2) + |
|000015c0| 22 20 3a 22 20 2b 20 53 | 69 6d 70 6c 65 52 69 70 |" :" + S|impleRip|
|000015d0| 28 43 6f 6d 47 69 76 65 | 6e 2c 20 33 29 20 2b 20 |(ComGive|n, 3) + |
|000015e0| 43 68 72 28 31 30 29 0d | 63 61 73 65 20 22 4e 4f |Chr(10).|case "NO|
|000015f0| 54 49 43 45 22 22 50 72 | 69 76 4d 73 67 73 2e 46 |TICE""Pr|ivMsgs.F|
|00001600| 72 6f 6d 46 69 65 6c 64 | 2e 65 6e 61 62 6c 65 64 |romField|.enabled|
|00001610| 20 3d 20 66 61 6c 73 65 | 00 be 01 50 72 69 76 4d | = false|...PrivM|
|00001620| 73 67 73 2e 46 72 6f 6d | 46 69 65 6c 64 2e 74 65 |sgs.From|Field.te|
|00001630| 78 74 20 3d 20 50 72 69 | 76 4d 73 67 73 2e 46 72 |xt = Pri|vMsgs.Fr|
|00001640| 6f 6d 46 69 65 6c 64 2e | 74 65 78 74 20 2b 20 22 |omField.|text + "|
|00001650| 2d 2d 2a 22 20 2b 20 50 | 61 72 73 65 4c 69 6e 65 |--*" + P|arseLine|
|00001660| 28 43 6f 6d 47 69 76 65 | 6e 2c 20 32 29 20 2b 20 |(ComGive|n, 2) + |
|00001670| 22 2a 2d 2d 20 22 20 2b | 20 53 69 6d 70 6c 65 52 |"*-- " +| SimpleR|
|00001680| 69 70 28 43 6f 6d 47 69 | 76 65 6e 2c 20 33 29 20 |ip(ComGi|ven, 3) |
|00001690| 2b 20 43 68 72 28 31 33 | 29 18 50 72 69 76 4d 73 |+ Chr(13|).PrivMs|
|000016a0| 67 73 2e 54 69 6d 65 72 | 31 2e 6d 6f 64 65 20 3d |gs.Timer|1.mode =|
|000016b0| 20 31 00 9c 01 69 72 63 | 73 6f 63 6b 65 74 2e 77 | 1...irc|socket.w|
|000016c0| 72 69 74 65 20 22 4e 4f | 54 49 43 45 20 22 20 2b |rite "NO|TICE " +|
|000016d0| 20 50 61 72 73 65 4c 69 | 6e 65 28 43 6f 6d 47 69 | ParseLi|ne(ComGi|
|000016e0| 76 65 6e 2c 20 32 29 20 | 2b 20 22 20 3a 22 20 2b |ven, 2) |+ " :" +|
|000016f0| 20 53 69 6d 70 6c 65 52 | 69 70 28 43 6f 6d 47 69 | SimpleR|ip(ComGi|
|00001700| 76 65 6e 2c 20 33 29 20 | 2b 20 43 68 72 28 31 30 |ven, 3) |+ Chr(10|
|00001710| 29 0b 63 61 73 65 20 22 | 43 54 43 50 22 22 50 72 |).case "|CTCP""Pr|
|00001720| 69 76 4d 73 67 73 2e 46 | 72 6f 6d 46 69 65 6c 64 |ivMsgs.F|romField|
|00001730| 2e 65 6e 61 62 6c 65 64 | 20 3d 20 66 61 6c 73 65 |.enabled| = false|
|00001740| 00 80 02 50 72 69 76 4d | 73 67 73 2e 46 72 6f 6d |...PrivM|sgs.From|
|00001750| 46 69 65 6c 64 2e 74 65 | 78 74 20 3d 20 50 72 69 |Field.te|xt = Pri|
|00001760| 76 4d 73 67 73 2e 46 72 | 6f 6d 46 69 65 6c 64 2e |vMsgs.Fr|omField.|
|00001770| 74 65 78 74 20 2b 20 22 | 2d 43 54 43 50 2d 2a 22 |text + "|-CTCP-*"|
|00001780| 20 2b 20 50 61 72 73 65 | 4c 69 6e 65 28 43 6f 6d | + Parse|Line(Com|
|00001790| 47 69 76 65 6e 2c 20 32 | 29 20 2b 20 22 2a 20 22 |Given, 2|) + "* "|
|000017a0| 20 2b 20 53 69 6d 70 6c | 65 52 69 70 28 43 6f 6d | + Simpl|eRip(Com|
|000017b0| 47 69 76 65 6e 2c 20 33 | 29 20 2b 20 43 68 72 28 |Given, 3|) + Chr(|
|000017c0| 31 33 29 18 50 72 69 76 | 4d 73 67 73 2e 54 69 6d |13).Priv|Msgs.Tim|
|000017d0| 65 72 31 2e 6d 6f 64 65 | 20 3d 20 31 00 af 01 69 |er1.mode| = 1...i|
|000017e0| 72 63 73 6f 63 6b 65 74 | 2e 77 72 69 74 65 20 22 |rcsocket|.write "|
|000017f0| 50 52 49 56 4d 53 47 20 | 22 20 2b 20 50 61 72 73 |PRIVMSG |" + Pars|
|00001800| 65 4c 69 6e 65 28 43 6f | 6d 47 69 76 65 6e 2c 20 |eLine(Co|mGiven, |
|00001810| 32 29 20 2b 20 22 20 3a | 22 20 2b 20 43 68 72 28 |2) + " :|" + Chr(|
|00001820| 31 29 20 2b 20 53 69 6d | 70 6c 65 52 69 70 28 43 |1) + Sim|pleRip(C|
|00001830| 6f 6d 47 69 76 65 6e 2c | 20 33 29 20 2b 20 43 68 |omGiven,| 3) + Ch|
|00001840| 72 28 31 29 20 2b 20 43 | 68 72 28 31 30 29 0b 63 |r(1) + C|hr(10).c|
|00001850| 61 73 65 20 22 4b 49 43 | 4b 22 1e 69 66 20 67 65 |ase "KIC|K".if ge|
|00001860| 74 50 61 72 74 73 28 43 | 6f 6d 47 69 76 65 6e 29 |tParts(C|omGiven)|
|00001870| 20 3d 20 33 20 74 68 65 | 6e 98 02 69 72 63 73 6f | = 3 the|n..ircso|
|00001880| 63 6b 65 74 2e 77 72 69 | 74 65 20 22 4b 49 43 4b |cket.wri|te "KICK|
|00001890| 20 22 20 2b 20 50 61 72 | 73 65 4c 69 6e 65 28 43 | " + Par|seLine(C|
|000018a0| 6f 6d 47 69 76 65 6e 2c | 20 32 29 20 2b 20 22 20 |omGiven,| 2) + " |
|000018b0| 22 20 2b 20 50 61 72 73 | 65 4c 69 6e 65 28 43 6f |" + Pars|eLine(Co|
|000018c0| 6d 47 69 76 65 6e 2c 20 | 33 29 20 2b 20 22 20 3a |mGiven, |3) + " :|
|000018d0| 50 68 61 74 22 20 2b 20 | 43 68 72 28 31 29 20 2b |Phat" + |Chr(1) +|
|000018e0| 20 22 49 52 43 22 20 2b | 20 43 68 72 28 31 29 20 | "IRC" +| Chr(1) |
|000018f0| 2b 20 22 20 62 79 20 54 | 65 72 6e 21 20 20 49 74 |+ " by T|ern!  It|
|00001900| 27 73 20 70 68 61 74 21 | 22 20 2b 20 43 68 72 28 |'s phat!|" + Chr(|
|00001910| 31 30 29 06 65 6e 64 20 | 69 66 00 1e 69 66 20 67 |10).end |if..if g|
|00001920| 65 74 50 61 72 74 73 28 | 43 6f 6d 47 69 76 65 6e |etParts(|ComGiven|
|00001930| 29 20 3e 20 33 20 74 68 | 65 6e b9 01 69 72 63 73 |) > 3 th|en..ircs|
|00001940| 6f 63 6b 65 74 2e 77 72 | 69 74 65 20 22 4b 49 43 |ocket.wr|ite "KIC|
|00001950| 4b 20 22 20 2b 20 50 61 | 72 73 65 4c 69 6e 65 28 |K " + Pa|rseLine(|
|00001960| 43 6f 6d 47 69 76 65 6e | 2c 20 32 29 20 2b 20 22 |ComGiven|, 2) + "|
|00001970| 20 22 20 2b 20 50 61 72 | 73 65 4c 69 6e 65 28 43 | " + Par|seLine(C|
|00001980| 6f 6d 47 69 76 65 6e 2c | 20 33 29 20 2b 20 22 20 |omGiven,| 3) + " |
|00001990| 3a 22 20 2b 20 53 69 6d | 70 6c 65 52 69 70 28 43 |:" + Sim|pleRip(C|
|000019a0| 6f 6d 47 69 76 65 6e 2c | 20 34 29 20 2b 20 43 68 |omGiven,| 4) + Ch|
|000019b0| 72 28 31 30 29 06 65 6e | 64 20 69 66 0b 63 61 73 |r(10).en|d if.cas|
|000019c0| 65 20 22 4b 49 4c 4c 22 | 1e 69 66 20 67 65 74 50 |e "KILL"|.if getP|
|000019d0| 61 72 74 73 28 43 6f 6d | 47 69 76 65 6e 29 20 3d |arts(Com|Given) =|
|000019e0| 20 32 20 74 68 65 6e 85 | 01 69 72 63 73 6f 63 6b | 2 then.|.ircsock|
|000019f0| 65 74 2e 77 72 69 74 65 | 20 22 4b 49 4c 4c 20 22 |et.write| "KILL "|
|00001a00| 20 2b 20 50 61 72 73 65 | 4c 69 6e 65 28 43 6f 6d | + Parse|Line(Com|
|00001a10| 47 69 76 65 6e 2c 20 32 | 29 20 2b 20 22 20 3a 2e |Given, 2|) + " :.|
|00001a20| 29 28 2e 22 20 2b 20 43 | 68 72 28 31 30 29 06 65 |)(." + C|hr(10).e|
|00001a30| 6e 64 20 69 66 00 1e 69 | 66 20 67 65 74 50 61 72 |nd if..i|f getPar|
|00001a40| 74 73 28 43 6f 6d 47 69 | 76 65 6e 29 20 3e 20 32 |ts(ComGi|ven) > 2|
|00001a50| 20 74 68 65 6e 9a 01 69 | 72 63 73 6f 63 6b 65 74 | then..i|rcsocket|
|00001a60| 2e 77 72 69 74 65 20 22 | 4b 49 4c 4c 20 22 20 2b |.write "|KILL " +|
|00001a70| 20 50 61 72 73 65 4c 69 | 6e 65 28 43 6f 6d 47 69 | ParseLi|ne(ComGi|
|00001a80| 76 65 6e 2c 20 32 29 20 | 2b 20 22 20 3a 22 20 2b |ven, 2) |+ " :" +|
|00001a90| 20 53 69 6d 70 6c 65 52 | 69 70 28 43 6f 6d 47 69 | SimpleR|ip(ComGi|
|00001aa0| 76 65 6e 2c 20 33 29 20 | 2b 20 43 68 72 28 31 30 |ven, 3) |+ Chr(10|
|00001ab0| 29 06 65 6e 64 20 69 66 | 0c 63 61 73 65 20 22 54 |).end if|.case "T|
|00001ac0| 4f 50 49 43 22 1e 69 66 | 20 67 65 74 50 61 72 74 |OPIC".if| getPart|
|00001ad0| 73 28 43 6f 6d 47 69 76 | 65 6e 29 20 3d 20 32 20 |s(ComGiv|en) = 2 |
|00001ae0| 74 68 65 6e 3b 69 72 63 | 73 6f 63 6b 65 74 2e 77 |then;irc|socket.w|
|00001af0| 72 69 74 65 20 22 54 4f | 50 49 43 20 22 20 2b 20 |rite "TO|PIC " + |
|00001b00| 50 61 72 73 65 4c 69 6e | 65 28 43 6f 6d 47 69 76 |ParseLin|e(ComGiv|
|00001b10| 65 6e 2c 20 32 29 20 2b | 20 43 68 72 28 31 30 29 |en, 2) +| Chr(10)|
|00001b20| 06 65 6e 64 20 69 66 00 | 1e 69 66 20 67 65 74 50 |.end if.|.if getP|
|00001b30| 61 72 74 73 28 43 6f 6d | 47 69 76 65 6e 29 20 3e |arts(Com|Given) >|
|00001b40| 20 32 20 74 68 65 6e 9b | 01 69 72 63 73 6f 63 6b | 2 then.|.ircsock|
|00001b50| 65 74 2e 77 72 69 74 65 | 20 22 54 4f 50 49 43 20 |et.write| "TOPIC |
|00001b60| 22 20 2b 20 50 61 72 73 | 65 4c 69 6e 65 28 43 6f |" + Pars|eLine(Co|
|00001b70| 6d 47 69 76 65 6e 2c 20 | 32 29 20 2b 20 22 20 3a |mGiven, |2) + " :|
|00001b80| 22 20 2b 20 53 69 6d 70 | 6c 65 52 69 70 28 43 6f |" + Simp|leRip(Co|
|00001b90| 6d 47 69 76 65 6e 2c 20 | 33 29 20 2b 20 43 68 72 |mGiven, |3) + Chr|
|00001ba0| 28 31 30 29 06 65 6e 64 | 20 69 66 04 65 6c 73 65 |(10).end| if.else|
|00001bb0| 3d 69 72 63 73 6f 63 6b | 65 74 2e 77 72 69 74 65 |=ircsock|et.write|
|00001bc0| 20 4d 69 64 28 43 6f 6d | 47 69 76 65 6e 2c 20 32 | Mid(Com|Given, 2|
|00001bd0| 2c 20 6c 65 6e 28 43 6f | 6d 47 69 76 65 6e 29 20 |, len(Co|mGiven) |
|00001be0| 2d 20 31 29 20 2b 20 43 | 68 72 28 31 30 29 0a 65 |- 1) + C|hr(10).e|
|00001bf0| 6e 64 20 73 65 6c 65 63 | 74 07 45 6e 64 20 53 75 |nd selec|t.End Su|
|00001c00| 62 08 47 65 74 50 61 72 | 74 73 14 62 61 73 65 53 |b.GetPar|ts.baseS|
|00001c10| 74 72 69 6e 67 20 61 73 | 20 73 74 72 69 6e 67 07 |tring as| string.|
|00001c20| 69 6e 74 65 67 65 72 00 | 0c 0a 0c 0a 0e 32 46 75 |integer.|.....2Fu|
|00001c30| 6e 63 74 69 6f 6e 20 47 | 65 74 50 61 72 74 73 28 |nction G|etParts(|
|00001c40| 62 61 73 65 53 74 72 69 | 6e 67 20 61 73 20 73 74 |baseStri|ng as st|
|00001c50| 72 69 6e 67 29 20 41 73 | 20 69 6e 74 65 67 65 72 |ring) As| integer|
|00001c60| 10 64 69 6d 20 69 20 61 | 73 20 69 6e 74 65 67 65 |.dim i a|s intege|
|00001c70| 72 15 64 69 6d 20 72 65 | 74 56 61 6c 20 61 73 20 |r.dim re|tVal as |
|00001c80| 69 6e 74 65 67 65 72 00 | 0a 72 65 74 56 61 6c 20 |integer.|.retVal |
|00001c90| 3d 20 31 00 1c 66 6f 72 | 20 69 20 3d 20 31 20 74 |= 1..for| i = 1 t|
|00001ca0| 6f 20 6c 65 6e 28 62 61 | 73 65 53 74 72 69 6e 67 |o len(ba|seString|
|00001cb0| 29 23 69 66 20 6d 69 64 | 28 62 61 73 65 53 74 72 |)#if mid|(baseStr|
|00001cc0| 69 6e 67 2c 20 69 2c 20 | 31 29 20 3d 20 22 20 22 |ing, i, |1) = " "|
|00001cd0| 20 74 68 65 6e 13 72 65 | 74 56 61 6c 20 3d 20 72 | then.re|tVal = r|
|00001ce0| 65 74 56 61 6c 20 2b 20 | 31 06 65 6e 64 20 69 66 |etVal + |1.end if|
|00001cf0| 04 6e 65 78 74 00 0d 72 | 65 74 75 72 6e 20 72 65 |.next..r|eturn re|
|00001d00| 74 56 61 6c 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |tVal.End| Functio|
|00001d10| 6e 09 50 61 72 73 65 4c | 69 6e 65 2a 62 61 73 65 |n.ParseL|ine*base|
|00001d20| 53 74 72 69 6e 67 20 61 | 73 20 73 74 72 69 6e 67 |String a|s string|
|00001d30| 2c 20 50 61 72 74 54 6f | 47 65 74 20 61 73 20 69 |, PartTo|Get as i|
|00001d40| 6e 74 65 67 65 72 06 73 | 74 72 69 6e 67 00 04 00 |nteger.s|tring...|
|00001d50| 04 00 1b 88 01 46 75 6e | 63 74 69 6f 6e 20 50 61 |.....Fun|ction Pa|
|00001d60| 72 73 65 4c 69 6e 65 28 | 62 61 73 65 53 74 72 69 |rseLine(|baseStri|
|00001d70| 6e 67 20 61 73 20 73 74 | 72 69 6e 67 2c 20 50 61 |ng as st|ring, Pa|
|00001d80| 72 74 54 6f 47 65 74 20 | 61 73 20 69 6e 74 65 67 |rtToGet |as integ|
|00001d90| 65 72 29 20 41 73 20 73 | 74 72 69 6e 67 1b 64 69 |er) As s|tring.di|
|00001da0| 6d 20 63 75 72 50 61 72 | 73 65 50 61 72 74 20 61 |m curPar|sePart a|
|00001db0| 73 20 69 6e 74 65 67 65 | 72 10 64 69 6d 20 69 20 |s intege|r.dim i |
|00001dc0| 61 73 20 69 6e 74 65 67 | 65 72 16 64 69 6d 20 63 |as integ|er.dim c|
|00001dd0| 75 72 42 75 69 6c 64 20 | 61 73 20 73 74 72 69 6e |urBuild |as strin|
|00001de0| 67 00 00 05 69 20 3d 20 | 30 0d 63 75 72 42 75 69 |g...i = |0.curBui|
|00001df0| 6c 64 20 3d 20 22 22 10 | 63 75 72 50 61 72 73 65 |ld = "".|curParse|
|00001e00| 50 61 72 74 20 3d 20 31 | 00 1f 77 68 69 6c 65 20 |Part = 1|..while |
|00001e10| 63 75 72 50 61 72 73 65 | 50 61 72 74 20 3c 3d 20 |curParse|Part <= |
|00001e20| 70 61 72 74 54 6f 47 65 | 74 09 69 20 3d 20 69 20 |partToGe|t.i = i |
|00001e30| 2b 20 31 1b 69 66 20 69 | 20 3e 20 6c 65 6e 28 62 |+ 1.if i| > len(b|
|00001e40| 61 73 65 53 74 72 69 6e | 67 29 20 74 68 65 6e 1f |aseStrin|g) then.|
|00001e50| 63 75 72 50 61 72 73 65 | 50 61 72 74 20 3d 20 63 |curParse|Part = c|
|00001e60| 75 72 50 61 72 73 65 50 | 61 72 74 20 2b 20 31 04 |urParseP|art + 1.|
|00001e70| 65 6c 73 65 23 69 66 20 | 6d 69 64 28 62 61 73 65 |else#if |mid(base|
|00001e80| 53 74 72 69 6e 67 2c 20 | 69 2c 20 31 29 20 3d 20 |String, |i, 1) = |
|00001e90| 22 20 22 20 74 68 65 6e | 1f 63 75 72 50 61 72 73 |" " then|.curPars|
|00001ea0| 65 50 61 72 74 20 3d 20 | 63 75 72 50 61 72 73 65 |ePart = |curParse|
|00001eb0| 50 61 72 74 20 2b 20 31 | 04 65 6c 73 65 20 69 66 |Part + 1|.else if|
|00001ec0| 20 63 75 72 50 61 72 73 | 65 50 61 72 74 20 3d 20 | curPars|ePart = |
|00001ed0| 70 61 72 74 54 6f 47 65 | 74 20 74 68 65 6e 2b 63 |partToGe|t then+c|
|00001ee0| 75 72 42 75 69 6c 64 20 | 3d 20 63 75 72 42 75 69 |urBuild |= curBui|
|00001ef0| 6c 64 20 2b 20 6d 69 64 | 28 62 61 73 65 53 74 72 |ld + mid|(baseStr|
|00001f00| 69 6e 67 2c 20 69 2c 20 | 31 29 06 65 6e 64 20 69 |ing, i, |1).end i|
|00001f10| 66 06 65 6e 64 20 69 66 | 06 65 6e 64 20 69 66 04 |f.end if|.end if.|
|00001f20| 77 65 6e 64 00 0f 72 65 | 74 75 72 6e 20 63 75 72 |wend..re|turn cur|
|00001f30| 42 75 69 6c 64 0c 45 6e | 64 20 46 75 6e 63 74 69 |Build.En|d Functi|
|00001f40| 6f 6e 08 53 74 72 69 70 | 45 6e 64 2d 73 74 72 69 |on.Strip|End-stri|
|00001f50| 6e 67 54 6f 53 74 72 69 | 70 20 61 73 20 73 74 72 |ngToStri|p as str|
|00001f60| 69 6e 67 2c 20 70 61 72 | 74 53 74 61 72 74 20 61 |ing, par|tStart a|
|00001f70| 73 20 69 6e 74 65 67 65 | 72 06 73 74 72 69 6e 67 |s intege|r.string|
|00001f80| 00 02 06 02 06 13 8a 01 | 46 75 6e 63 74 69 6f 6e |........|Function|
|00001f90| 20 53 74 72 69 70 45 6e | 64 28 73 74 72 69 6e 67 | StripEn|d(string|
|00001fa0| 54 6f 53 74 72 69 70 20 | 61 73 20 73 74 72 69 6e |ToStrip |as strin|
|00001fb0| 67 2c 20 70 61 72 74 53 | 74 61 72 74 20 61 73 20 |g, partS|tart as |
|00001fc0| 69 6e 74 65 67 65 72 29 | 20 41 73 20 73 74 72 69 |integer)| As stri|
|00001fd0| 6e 67 17 64 69 6d 20 72 | 65 74 53 74 72 69 6e 67 |ng.dim r|etString|
|00001fe0| 20 61 73 20 73 74 72 69 | 6e 67 17 64 69 6d 20 72 | as stri|ng.dim r|
|00001ff0| 65 74 53 74 61 72 74 20 | 61 73 20 69 6e 74 65 67 |etStart |as integ|
|00002000| 65 72 10 64 69 6d 20 69 | 20 61 73 20 69 6e 74 65 |er.dim i| as inte|
|00002010| 67 65 72 00 0c 72 65 74 | 53 74 61 72 74 20 3d 20 |ger..ret|Start = |
|00002020| 31 00 1c 66 6f 72 20 69 | 20 3d 20 31 20 74 6f 20 |1..for i| = 1 to |
|00002030| 28 70 61 72 74 53 74 61 | 72 74 20 2d 20 31 29 3a |(partSta|rt - 1):|
|00002040| 72 65 74 53 74 61 72 74 | 20 3d 20 72 65 74 53 74 |retStart| = retSt|
|00002050| 61 72 74 20 2b 20 31 20 | 2b 20 6c 65 6e 28 70 61 |art + 1 |+ len(pa|
|00002060| 72 73 65 4c 69 6e 65 28 | 53 74 72 69 6e 67 54 6f |rseLine(|StringTo|
|00002070| 53 74 72 69 70 2c 20 69 | 29 29 04 6e 65 78 74 00 |Strip, i|)).next.|
|00002080| 8b 01 72 65 74 53 74 72 | 69 6e 67 20 3d 20 6d 69 |..retStr|ing = mi|
|00002090| 64 28 53 74 72 69 6e 67 | 54 6f 53 74 72 69 70 2c |d(String|ToStrip,|
|000020a0| 20 72 65 74 53 74 61 72 | 74 2c 20 6c 65 6e 28 53 | retStar|t, len(S|
|000020b0| 74 72 69 6e 67 54 6f 53 | 74 72 69 70 29 20 2d 20 |tringToS|trip) - |
|000020c0| 72 65 74 53 74 61 72 74 | 20 2b 20 31 29 00 22 69 |retStart| + 1)."i|
|000020d0| 66 20 6d 69 64 28 72 65 | 74 53 74 72 69 6e 67 2c |f mid(re|tString,|
|000020e0| 20 31 2c 20 31 29 20 3d | 20 22 3a 22 20 74 68 65 | 1, 1) =| ":" the|
|000020f0| 6e 31 72 65 74 53 74 72 | 69 6e 67 20 3d 20 6d 69 |n1retStr|ing = mi|
|00002100| 64 28 72 65 74 53 74 72 | 69 6e 67 2c 20 32 2c 20 |d(retStr|ing, 2, |
|00002110| 6c 65 6e 28 72 65 74 53 | 74 72 69 6e 67 29 20 2d |len(retS|tring) -|
|00002120| 20 31 29 06 65 6e 64 20 | 69 66 00 10 72 65 74 75 | 1).end |if..retu|
|00002130| 72 6e 20 72 65 74 53 74 | 72 69 6e 67 0c 45 6e 64 |rn retSt|ring.End|
|00002140| 20 46 75 6e 63 74 69 6f | 6e 09 53 69 6d 70 6c 65 | Functio|n.Simple|
|00002150| 52 69 70 2d 73 74 72 69 | 6e 67 54 6f 53 74 72 69 |Rip-stri|ngToStri|
|00002160| 70 20 61 73 20 73 74 72 | 69 6e 67 2c 20 70 61 72 |p as str|ing, par|
|00002170| 74 53 74 61 72 74 20 61 | 73 20 69 6e 74 65 67 65 |tStart a|s intege|
|00002180| 72 06 73 74 72 69 6e 67 | 00 0d 10 0d 10 0f 8b 01 |r.string|........|
|00002190| 46 75 6e 63 74 69 6f 6e | 20 53 69 6d 70 6c 65 52 |Function| SimpleR|
|000021a0| 69 70 28 73 74 72 69 6e | 67 54 6f 53 74 72 69 70 |ip(strin|gToStrip|
|000021b0| 20 61 73 20 73 74 72 69 | 6e 67 2c 20 70 61 72 74 | as stri|ng, part|
|000021c0| 53 74 61 72 74 20 61 73 | 20 69 6e 74 65 67 65 72 |Start as| integer|
|000021d0| 29 20 41 73 20 73 74 72 | 69 6e 67 17 64 69 6d 20 |) As str|ing.dim |
|000021e0| 72 65 74 53 74 72 69 6e | 67 20 61 73 20 73 74 72 |retStrin|g as str|
|000021f0| 69 6e 67 17 64 69 6d 20 | 72 65 74 53 74 61 72 74 |ing.dim |retStart|
|00002200| 20 61 73 20 69 6e 74 65 | 67 65 72 10 64 69 6d 20 | as inte|ger.dim |
|00002210| 69 20 61 73 20 69 6e 74 | 65 67 65 72 00 0c 72 65 |i as int|eger..re|
|00002220| 74 53 74 61 72 74 20 3d | 20 31 00 1c 66 6f 72 20 |tStart =| 1..for |
|00002230| 69 20 3d 20 31 20 74 6f | 20 28 70 61 72 74 53 74 |i = 1 to| (partSt|
|00002240| 61 72 74 20 2d 20 31 29 | 3a 72 65 74 53 74 61 72 |art - 1)|:retStar|
|00002250| 74 20 3d 20 72 65 74 53 | 74 61 72 74 20 2b 20 31 |t = retS|tart + 1|
|00002260| 20 2b 20 6c 65 6e 28 70 | 61 72 73 65 4c 69 6e 65 | + len(p|arseLine|
|00002270| 28 53 74 72 69 6e 67 54 | 6f 53 74 72 69 70 2c 20 |(StringT|oStrip, |
|00002280| 69 29 29 04 6e 65 78 74 | 00 8b 01 72 65 74 53 74 |i)).next|...retSt|
|00002290| 72 69 6e 67 20 3d 20 6d | 69 64 28 53 74 72 69 6e |ring = m|id(Strin|
|000022a0| 67 54 6f 53 74 72 69 70 | 2c 20 72 65 74 53 74 61 |gToStrip|, retSta|
|000022b0| 72 74 2c 20 6c 65 6e 28 | 53 74 72 69 6e 67 54 6f |rt, len(|StringTo|
|000022c0| 53 74 72 69 70 29 20 2d | 20 72 65 74 53 74 61 72 |Strip) -| retStar|
|000022d0| 74 20 2b 20 31 29 00 10 | 72 65 74 75 72 6e 20 72 |t + 1)..|return r|
|000022e0| 65 74 53 74 72 69 6e 67 | 0c 45 6e 64 20 46 75 6e |etString|.End Fun|
|000022f0| 63 74 69 6f 6e 08 45 6e | 63 6f 64 65 49 50 13 49 |ction.En|codeIP.I|
|00002300| 50 41 64 64 72 65 73 73 | 20 61 73 20 73 74 72 69 |PAddress| as stri|
|00002310| 6e 67 06 73 74 72 69 6e | 67 00 8c 01 00 8c 01 00 |ng.strin|g.......|
|00002320| 8f 01 30 46 75 6e 63 74 | 69 6f 6e 20 45 6e 63 6f |..0Funct|ion Enco|
|00002330| 64 65 49 50 28 49 50 41 | 64 64 72 65 73 73 20 61 |deIP(IPA|ddress a|
|00002340| 73 20 73 74 72 69 6e 67 | 29 20 41 73 20 73 74 72 |s string|) As str|
|00002350| 69 6e 67 16 64 69 6d 20 | 49 50 7a 20 28 34 29 20 |ing.dim |IPz (4) |
|00002360| 61 73 20 69 6e 74 65 67 | 65 72 10 64 69 6d 20 69 |as integ|er.dim i|
|00002370| 20 61 73 20 69 6e 74 65 | 67 65 72 1b 64 69 6d 20 | as inte|ger.dim |
|00002380| 64 65 63 69 6d 61 6c 73 | 28 31 30 29 20 61 73 20 |decimals|(10) as |
|00002390| 69 6e 74 65 67 65 72 1f | 64 69 6d 20 74 65 6d 70 |integer.|dim temp|
|000023a0| 42 53 74 72 65 61 6d 20 | 61 73 20 42 69 6e 61 72 |BStream |as Binar|
|000023b0| 79 53 74 72 65 61 6d 1a | 64 69 6d 20 74 65 6d 70 |yStream.|dim temp|
|000023c0| 49 6e 74 65 67 65 72 20 | 61 73 20 69 6e 74 65 67 |Integer |as integ|
|000023d0| 65 72 10 64 69 6d 20 6a | 20 61 73 20 69 6e 74 65 |er.dim j| as inte|
|000023e0| 67 65 72 17 64 69 6d 20 | 72 65 74 53 74 72 69 6e |ger.dim |retStrin|
|000023f0| 67 20 61 73 20 73 74 72 | 69 6e 67 15 64 69 6d 20 |g as str|ing.dim |
|00002400| 74 65 6d 70 53 74 72 20 | 61 73 20 73 74 72 69 6e |tempStr |as strin|
|00002410| 67 00 b2 01 27 20 52 65 | 61 6c 42 61 73 69 63 20 |g...' Re|alBasic |
|00002420| 69 73 20 72 65 74 61 72 | 64 65 64 20 61 6e 64 20 |is retar|ded and |
|00002430| 77 6f 6e 27 74 20 68 61 | 6e 64 6c 65 20 61 6e 79 |won't ha|ndle any|
|00002440| 20 76 61 6c 75 65 73 20 | 68 69 67 68 65 72 20 74 | values |higher t|
|00002450| 68 61 6e 20 26 68 37 46 | 46 46 46 46 46 46 2c 20 |han &h7F|FFFFFF, |
|00002460| 73 6f 20 49 20 67 6f 74 | 74 61 20 77 72 69 74 65 |so I got|ta write|
|00002470| 20 63 75 73 74 6f 6d 20 | 72 6f 75 74 69 6e 65 73 | custom |routines|
|00002480| 2e 20 20 3e 3a 50 00 8d | 01 74 65 6d 70 42 53 74 |.  >:P..|.tempBSt|
|00002490| 72 65 61 6d 20 3d 20 47 | 65 74 46 6f 6c 64 65 72 |ream = G|etFolder|
|000024a0| 49 74 65 6d 28 22 3a 50 | 68 61 74 20 53 65 74 74 |Item(":P|hat Sett|
|000024b0| 69 6e 67 73 3a 49 50 74 | 65 6d 70 22 29 2e 43 72 |ings:IPt|emp").Cr|
|000024c0| 65 61 74 65 42 69 6e 61 | 72 79 46 69 6c 65 28 22 |eateBina|ryFile("|
|000024d0| 74 65 78 74 22 29 0e 46 | 6f 72 20 69 20 3d 20 31 |text").F|or i = 1|
|000024e0| 20 74 6f 20 34 23 49 50 | 7a 28 69 29 20 3d 20 76 | to 4#IP|z(i) = v|
|000024f0| 61 6c 28 50 61 72 73 65 | 49 50 28 49 50 41 64 64 |al(Parse|IP(IPAdd|
|00002500| 72 65 73 73 2c 20 69 29 | 29 0d 69 66 20 69 20 3e |ress, i)|).if i >|
|00002510| 20 31 20 74 68 65 6e 1c | 74 65 6d 70 42 53 74 72 | 1 then.|tempBStr|
|00002520| 65 61 6d 2e 77 72 69 74 | 65 42 79 74 65 20 49 50 |eam.writ|eByte IP|
|00002530| 7a 28 69 29 04 65 6c 73 | 65 17 74 65 6d 70 42 53 |z(i).els|e.tempBS|
|00002540| 74 72 65 61 6d 2e 77 72 | 69 74 65 42 79 74 65 20 |tream.wr|iteByte |
|00002550| 30 06 65 6e 64 20 69 66 | 04 6e 65 78 74 11 74 65 |0.end if|.next.te|
|00002560| 6d 70 42 53 74 72 65 61 | 6d 2e 63 6c 6f 73 65 00 |mpBStrea|m.close.|
|00002570| 8c 01 74 65 6d 70 42 53 | 74 72 65 61 6d 20 3d 20 |..tempBS|tream = |
|00002580| 47 65 74 46 6f 6c 64 65 | 72 49 74 65 6d 28 22 3a |GetFolde|rItem(":|
|00002590| 50 68 61 74 20 53 65 74 | 74 69 6e 67 73 3a 49 50 |Phat Set|tings:IP|
|000025a0| 74 65 6d 70 22 29 2e 4f | 70 65 6e 41 73 42 69 6e |temp").O|penAsBin|
|000025b0| 61 72 79 46 69 6c 65 28 | 66 61 6c 73 65 29 22 74 |aryFile(|false)"t|
|000025c0| 65 6d 70 49 6e 74 65 67 | 65 72 20 3d 20 74 65 6d |empInteg|er = tem|
|000025d0| 70 42 53 74 72 65 61 6d | 2e 52 65 61 64 4c 6f 6e |pBStream|.ReadLon|
|000025e0| 67 11 74 65 6d 70 42 53 | 74 72 65 61 6d 2e 63 6c |g.tempBS|tream.cl|
|000025f0| 6f 73 65 2d 47 65 74 46 | 6f 6c 64 65 72 49 74 65 |ose-GetF|olderIte|
|00002600| 6d 28 22 3a 50 68 61 74 | 20 53 65 74 74 69 6e 67 |m(":Phat| Setting|
|00002610| 73 3a 49 50 74 65 6d 70 | 22 29 2e 64 65 6c 65 74 |s:IPtemp|").delet|
|00002620| 65 00 0f 66 6f 72 20 69 | 20 3d 20 31 20 74 6f 20 |e..for i| = 1 to |
|00002630| 31 30 0f 64 65 63 69 6d | 61 6c 73 28 69 29 20 3d |10.decim|als(i) =|
|00002640| 20 30 04 6e 65 78 74 00 | 21 6a 20 3d 20 6c 65 6e | 0.next.|!j = len|
|00002650| 28 72 65 61 6c 53 74 72 | 28 74 65 6d 70 49 6e 74 |(realStr|(tempInt|
|00002660| 65 67 65 72 29 29 20 2b | 20 31 1e 74 65 6d 70 53 |eger)) +| 1.tempS|
|00002670| 74 72 20 3d 20 72 65 61 | 6c 53 74 72 28 74 65 6d |tr = rea|lStr(tem|
|00002680| 70 49 6e 74 65 67 65 72 | 29 23 66 6f 72 20 69 20 |pInteger|)#for i |
|00002690| 3d 20 31 30 20 64 6f 77 | 6e 74 6f 20 31 30 20 2d |= 10 dow|nto 10 -|
|000026a0| 20 6c 65 6e 28 74 65 6d | 70 53 74 72 29 09 6a 20 | len(tem|pStr).j |
|000026b0| 3d 20 6a 20 2d 20 31 25 | 64 65 63 69 6d 61 6c 73 |= j - 1%|decimals|
|000026c0| 28 69 29 20 3d 20 76 61 | 6c 28 6d 69 64 28 74 65 |(i) = va|l(mid(te|
|000026d0| 6d 70 53 74 72 2c 20 6a | 2c 20 31 29 29 04 6e 65 |mpStr, j|, 1)).ne|
|000026e0| 78 74 0e 72 65 74 53 74 | 72 69 6e 67 20 3d 20 22 |xt.retSt|ring = "|
|000026f0| 22 00 0f 66 6f 72 20 69 | 20 3d 20 31 20 74 6f 20 |"..for i| = 1 to |
|00002700| 31 30 28 72 65 74 53 74 | 72 69 6e 67 20 3d 20 72 |10(retSt|ring = r|
|00002710| 65 74 53 74 72 69 6e 67 | 20 2b 20 73 74 72 28 64 |etString| + str(d|
|00002720| 65 63 69 6d 61 6c 73 28 | 69 29 29 04 6e 65 78 74 |ecimals(|i)).next|
|00002730| 1e 27 20 43 6f 6e 76 65 | 72 74 20 69 74 20 74 6f |.' Conve|rt it to|
|00002740| 20 62 61 73 69 63 20 64 | 65 63 69 6d 61 6c 73 00 | basic d|ecimals.|
|00002750| 13 66 6f 72 20 69 20 3d | 20 31 20 74 6f 20 49 50 |.for i =| 1 to IP|
|00002760| 7a 28 31 29 1d 64 65 63 | 69 6d 61 6c 73 28 33 29 |z(1).dec|imals(3)|
|00002770| 20 3d 20 64 65 63 69 6d | 61 6c 73 28 33 29 20 2b | = decim|als(3) +|
|00002780| 20 31 1d 64 65 63 69 6d | 61 6c 73 28 34 29 20 3d | 1.decim|als(4) =|
|00002790| 20 64 65 63 69 6d 61 6c | 73 28 34 29 20 2b 20 36 | decimal|s(4) + 6|
|000027a0| 1d 64 65 63 69 6d 61 6c | 73 28 35 29 20 3d 20 64 |.decimal|s(5) = d|
|000027b0| 65 63 69 6d 61 6c 73 28 | 35 29 20 2b 20 37 1d 64 |ecimals(|5) + 7.d|
|000027c0| 65 63 69 6d 61 6c 73 28 | 36 29 20 3d 20 64 65 63 |ecimals(|6) = dec|
|000027d0| 69 6d 61 6c 73 28 36 29 | 20 2b 20 37 1d 64 65 63 |imals(6)| + 7.dec|
|000027e0| 69 6d 61 6c 73 28 37 29 | 20 3d 20 64 65 63 69 6d |imals(7)| = decim|
|000027f0| 61 6c 73 28 37 29 20 2b | 20 37 1d 64 65 63 69 6d |als(7) +| 7.decim|
|00002800| 61 6c 73 28 38 29 20 3d | 20 64 65 63 69 6d 61 6c |als(8) =| decimal|
|00002810| 73 28 38 29 20 2b 20 32 | 1d 64 65 63 69 6d 61 6c |s(8) + 2|.decimal|
|00002820| 73 28 39 29 20 3d 20 64 | 65 63 69 6d 61 6c 73 28 |s(9) = d|ecimals(|
|00002830| 39 29 20 2b 20 31 1f 64 | 65 63 69 6d 61 6c 73 28 |9) + 1.d|ecimals(|
|00002840| 31 30 29 20 3d 20 64 65 | 63 69 6d 61 6c 73 28 31 |10) = de|cimals(1|
|00002850| 30 29 20 2b 20 36 00 0f | 66 6f 72 20 6a 20 3d 20 |0) + 6..|for j = |
|00002860| 32 20 74 6f 20 31 30 17 | 69 66 20 64 65 63 69 6d |2 to 10.|if decim|
|00002870| 61 6c 73 28 6a 29 20 3e | 20 39 20 74 68 65 6e 8f |als(j) >| 9 then.|
|00002880| 01 64 65 63 69 6d 61 6c | 73 28 6a 20 2d 20 31 29 |.decimal|s(j - 1)|
|00002890| 20 3d 20 64 65 63 69 6d | 61 6c 73 28 6a 20 2d 20 | = decim|als(j - |
|000028a0| 31 29 20 2b 20 28 28 64 | 65 63 69 6d 61 6c 73 28 |1) + ((d|ecimals(|
|000028b0| 6a 29 20 2d 20 28 64 65 | 63 69 6d 61 6c 73 28 6a |j) - (de|cimals(j|
|000028c0| 29 20 6d 6f 64 20 31 30 | 29 29 20 2f 20 31 30 29 |) mod 10|)) / 10)|
|000028d0| 20 64 65 63 69 6d 61 6c | 73 28 6a 29 20 3d 20 64 | decimal|s(j) = d|
|000028e0| 65 63 69 6d 61 6c 73 28 | 6a 29 20 6d 6f 64 20 31 |ecimals(|j) mod 1|
|000028f0| 30 06 65 6e 64 20 69 66 | 04 6e 65 78 74 04 6e 65 |0.end if|.next.ne|
|00002900| 78 74 00 0f 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |xt..for |i = 1 to|
|00002910| 20 32 30 0f 66 6f 72 20 | 6a 20 3d 20 32 20 74 6f | 20.for |j = 2 to|
|00002920| 20 31 30 17 69 66 20 64 | 65 63 69 6d 61 6c 73 28 | 10.if d|ecimals(|
|00002930| 6a 29 20 3e 20 39 20 74 | 68 65 6e 8f 01 64 65 63 |j) > 9 t|hen..dec|
|00002940| 69 6d 61 6c 73 28 6a 20 | 2d 20 31 29 20 3d 20 64 |imals(j |- 1) = d|
|00002950| 65 63 69 6d 61 6c 73 28 | 6a 20 2d 20 31 29 20 2b |ecimals(|j - 1) +|
|00002960| 20 28 28 64 65 63 69 6d | 61 6c 73 28 6a 29 20 2d | ((decim|als(j) -|
|00002970| 20 28 64 65 63 69 6d 61 | 6c 73 28 6a 29 20 6d 6f | (decima|ls(j) mo|
|00002980| 64 20 31 30 29 29 20 2f | 20 31 30 29 20 64 65 63 |d 10)) /| 10) dec|
|00002990| 69 6d 61 6c 73 28 6a 29 | 20 3d 20 64 65 63 69 6d |imals(j)| = decim|
|000029a0| 61 6c 73 28 6a 29 20 6d | 6f 64 20 31 30 06 65 6e |als(j) m|od 10.en|
|000029b0| 64 20 69 66 04 6e 65 78 | 74 04 6e 65 78 74 0e 72 |d if.nex|t.next.r|
|000029c0| 65 74 53 74 72 69 6e 67 | 20 3d 20 22 22 00 0f 66 |etString| = ""..f|
|000029d0| 6f 72 20 69 20 3d 20 31 | 20 74 6f 20 31 30 28 72 |or i = 1| to 10(r|
|000029e0| 65 74 53 74 72 69 6e 67 | 20 3d 20 72 65 74 53 74 |etString| = retSt|
|000029f0| 72 69 6e 67 20 2b 20 73 | 74 72 28 64 65 63 69 6d |ring + s|tr(decim|
|00002a00| 61 6c 73 28 69 29 29 04 | 6e 65 78 74 00 10 72 65 |als(i)).|next..re|
|00002a10| 74 75 72 6e 20 72 65 74 | 53 74 72 69 6e 67 0c 45 |turn ret|String.E|
|00002a20| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 07 50 61 72 73 |nd Funct|ion.Pars|
|00002a30| 65 49 50 2a 62 61 73 65 | 53 74 72 69 6e 67 20 61 |eIP*base|String a|
|00002a40| 73 20 73 74 72 69 6e 67 | 2c 20 70 61 72 74 54 6f |s string|, partTo|
|00002a50| 47 65 74 20 61 73 20 69 | 6e 74 65 67 65 72 06 73 |Get as i|nteger.s|
|00002a60| 74 72 69 6e 67 00 12 02 | 12 02 1b 86 01 46 75 6e |tring...|.....Fun|
|00002a70| 63 74 69 6f 6e 20 50 61 | 72 73 65 49 50 28 62 61 |ction Pa|rseIP(ba|
|00002a80| 73 65 53 74 72 69 6e 67 | 20 61 73 20 73 74 72 69 |seString| as stri|
|00002a90| 6e 67 2c 20 70 61 72 74 | 54 6f 47 65 74 20 61 73 |ng, part|ToGet as|
|00002aa0| 20 69 6e 74 65 67 65 72 | 29 20 41 73 20 73 74 72 | integer|) As str|
|00002ab0| 69 6e 67 1b 64 69 6d 20 | 63 75 72 50 61 72 73 65 |ing.dim |curParse|
|00002ac0| 50 61 72 74 20 61 73 20 | 69 6e 74 65 67 65 72 10 |Part as |integer.|
|00002ad0| 64 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |dim i as| integer|
|00002ae0| 16 64 69 6d 20 63 75 72 | 42 75 69 6c 64 20 61 73 |.dim cur|Build as|
|00002af0| 20 73 74 72 69 6e 67 00 | 00 05 69 20 3d 20 30 0d | string.|..i = 0.|
|00002b00| 63 75 72 42 75 69 6c 64 | 20 3d 20 22 22 10 63 75 |curBuild| = "".cu|
|00002b10| 72 50 61 72 73 65 50 61 | 72 74 20 3d 20 31 00 1f |rParsePa|rt = 1..|
|00002b20| 77 68 69 6c 65 20 63 75 | 72 50 61 72 73 65 50 61 |while cu|rParsePa|
|00002b30| 72 74 20 3c 3d 20 70 61 | 72 74 54 6f 47 65 74 09 |rt <= pa|rtToGet.|
|00002b40| 69 20 3d 20 69 20 2b 20 | 31 1b 69 66 20 69 20 3e |i = i + |1.if i >|
|00002b50| 20 6c 65 6e 28 62 61 73 | 65 53 74 72 69 6e 67 29 | len(bas|eString)|
|00002b60| 20 74 68 65 6e 1f 63 75 | 72 50 61 72 73 65 50 61 | then.cu|rParsePa|
|00002b70| 72 74 20 3d 20 63 75 72 | 50 61 72 73 65 50 61 72 |rt = cur|ParsePar|
|00002b80| 74 20 2b 20 31 04 65 6c | 73 65 23 69 66 20 6d 69 |t + 1.el|se#if mi|
|00002b90| 64 28 62 61 73 65 53 74 | 72 69 6e 67 2c 20 69 2c |d(baseSt|ring, i,|
|00002ba0| 20 31 29 20 3d 20 22 2e | 22 20 74 68 65 6e 1f 63 | 1) = ".|" then.c|
|00002bb0| 75 72 50 61 72 73 65 50 | 61 72 74 20 3d 20 63 75 |urParseP|art = cu|
|00002bc0| 72 50 61 72 73 65 50 61 | 72 74 20 2b 20 31 04 65 |rParsePa|rt + 1.e|
|00002bd0| 6c 73 65 20 69 66 20 63 | 75 72 50 61 72 73 65 50 |lse if c|urParseP|
|00002be0| 61 72 74 20 3d 20 70 61 | 72 74 54 6f 47 65 74 20 |art = pa|rtToGet |
|00002bf0| 74 68 65 6e 2b 63 75 72 | 42 75 69 6c 64 20 3d 20 |then+cur|Build = |
|00002c00| 63 75 72 42 75 69 6c 64 | 20 2b 20 6d 69 64 28 62 |curBuild| + mid(b|
|00002c10| 61 73 65 53 74 72 69 6e | 67 2c 20 69 2c 20 31 29 |aseStrin|g, i, 1)|
|00002c20| 06 65 6e 64 20 69 66 06 | 65 6e 64 20 69 66 06 65 |.end if.|end if.e|
|00002c30| 6e 64 20 69 66 04 77 65 | 6e 64 00 0f 72 65 74 75 |nd if.we|nd..retu|
|00002c40| 72 6e 20 63 75 72 42 75 | 69 6c 64 0c 45 6e 64 20 |rn curBu|ild.End |
|00002c50| 46 75 6e 63 74 69 6f 6e | 07 52 65 61 6c 53 74 72 |Function|.RealStr|
|00002c60| 18 6f 72 69 67 69 6e 61 | 6c 56 61 6c 75 65 20 61 |.origina|lValue a|
|00002c70| 73 20 69 6e 74 65 67 65 | 72 06 53 74 72 69 6e 67 |s intege|r.String|
|00002c80| 00 0c 10 0c 10 0e 34 46 | 75 6e 63 74 69 6f 6e 20 |......4F|unction |
|00002c90| 52 65 61 6c 53 74 72 28 | 6f 72 69 67 69 6e 61 6c |RealStr(|original|
|00002ca0| 56 61 6c 75 65 20 61 73 | 20 69 6e 74 65 67 65 72 |Value as| integer|
|00002cb0| 29 20 41 73 20 53 74 72 | 69 6e 67 17 64 69 6d 20 |) As Str|ing.dim |
|00002cc0| 72 65 74 53 74 72 69 6e | 67 20 61 73 20 73 74 72 |retStrin|g as str|
|00002cd0| 69 6e 67 16 64 69 6d 20 | 72 65 64 75 63 65 72 20 |ing.dim |reducer |
|00002ce0| 61 73 20 69 6e 74 65 67 | 65 72 00 17 72 65 64 75 |as integ|er..redu|
|00002cf0| 63 65 72 20 3d 20 6f 72 | 69 67 69 6e 61 6c 56 61 |cer = or|iginalVa|
|00002d00| 6c 75 65 0e 72 65 74 53 | 74 72 69 6e 67 20 3d 20 |lue.retS|tring = |
|00002d10| 22 22 00 11 77 68 69 6c | 65 20 72 65 64 75 63 65 |""..whil|e reduce|
|00002d20| 72 20 3e 20 30 2b 72 65 | 74 53 74 72 69 6e 67 20 |r > 0+re|tString |
|00002d30| 3d 20 73 74 72 28 72 65 | 64 75 63 65 72 20 6d 6f |= str(re|ducer mo|
|00002d40| 64 20 31 30 29 20 2b 20 | 72 65 74 53 74 72 69 6e |d 10) + |retStrin|
|00002d50| 67 2b 72 65 64 75 63 65 | 72 20 3d 20 28 72 65 64 |g+reduce|r = (red|
|00002d60| 75 63 65 72 20 2d 20 28 | 72 65 64 75 63 65 72 20 |ucer - (|reducer |
|00002d70| 6d 6f 64 20 31 30 29 29 | 20 2f 20 31 30 04 77 65 |mod 10))| / 10.we|
|00002d80| 6e 64 00 10 72 65 74 75 | 72 6e 20 72 65 74 53 74 |nd..retu|rn retSt|
|00002d90| 72 69 6e 67 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |ring.End| Functio|
|00002da0| 6e 08 44 65 63 6f 64 65 | 49 50 14 49 50 54 6f 44 |n.Decode|IP.IPToD|
|00002db0| 65 63 6f 64 65 20 61 73 | 20 73 74 72 69 6e 67 06 |ecode as| string.|
|00002dc0| 73 74 72 69 6e 67 00 2e | 00 2e 00 30 31 46 75 6e |string..|...01Fun|
|00002dd0| 63 74 69 6f 6e 20 44 65 | 63 6f 64 65 49 50 28 49 |ction De|codeIP(I|
|00002de0| 50 54 6f 44 65 63 6f 64 | 65 20 61 73 20 73 74 72 |PToDecod|e as str|
|00002df0| 69 6e 67 29 20 41 73 20 | 73 74 72 69 6e 67 10 64 |ing) As |string.d|
|00002e00| 69 6d 20 69 20 61 73 20 | 69 6e 74 65 67 65 72 10 |im i as |integer.|
|00002e10| 64 69 6d 20 6a 20 61 73 | 20 69 6e 74 65 67 65 72 |dim j as| integer|
|00002e20| 1f 64 69 6d 20 74 65 6d | 70 42 53 74 72 65 61 6d |.dim tem|pBStream|
|00002e30| 20 61 73 20 42 69 6e 61 | 72 79 53 74 72 65 61 6d | as Bina|ryStream|
|00002e40| 14 64 69 6d 20 74 65 6d | 70 49 50 20 61 73 20 73 |.dim tem|pIP as s|
|00002e50| 74 72 69 6e 67 1a 64 69 | 6d 20 66 69 72 73 74 4e |tring.di|m firstN|
|00002e60| 75 6d 62 65 72 20 61 73 | 20 69 6e 74 65 67 65 72 |umber as| integer|
|00002e70| 15 64 69 6d 20 49 50 7a | 28 34 29 20 61 73 20 69 |.dim IPz|(4) as i|
|00002e80| 6e 74 65 67 65 72 00 28 | 27 20 41 67 61 69 6e 2c |nteger.(|' Again,|
|00002e90| 20 52 65 61 6c 42 61 73 | 69 63 20 64 6f 65 73 6e | RealBas|ic doesn|
|00002ea0| 27 74 20 68 61 6e 64 6c | 65 20 76 61 6c 75 65 73 |'t handl|e values|
|00002eb0| 37 27 20 48 69 67 68 65 | 72 20 74 68 61 6e 20 26 |7' Highe|r than &|
|00002ec0| 68 37 46 46 46 46 46 46 | 46 2c 20 77 68 69 63 68 |h7FFFFFF|F, which|
|00002ed0| 20 6d 61 6b 65 73 20 74 | 68 69 73 20 61 20 72 65 | makes t|his a re|
|00002ee0| 61 6c 20 70 61 69 6e 21 | 00 13 74 65 6d 70 49 50 |al pain!|..tempIP|
|00002ef0| 20 3d 20 49 50 54 6f 44 | 65 63 6f 64 65 00 16 77 | = IPToD|ecode..w|
|00002f00| 68 69 6c 65 20 6c 65 6e | 28 74 65 6d 70 49 50 29 |hile len|(tempIP)|
|00002f10| 20 3c 20 31 30 15 74 65 | 6d 70 49 50 20 3d 20 22 | < 10.te|mpIP = "|
|00002f20| 30 22 20 2b 20 74 65 6d | 70 49 50 04 77 65 6e 64 |0" + tem|pIP.wend|
|00002f30| b7 01 74 65 6d 70 49 50 | 20 3d 20 6d 69 64 28 74 |..tempIP| = mid(t|
|00002f40| 65 6d 70 49 50 2c 20 6c | 65 6e 28 74 65 6d 70 49 |empIP, l|en(tempI|
|00002f50| 50 29 20 2d 20 39 2c 20 | 31 30 29 20 20 27 20 53 |P) - 9, |10)  ' S|
|00002f60| 6f 6d 65 20 70 65 6f 70 | 6c 65 20 6d 61 79 20 74 |ome peop|le may t|
|00002f70| 72 79 20 74 6f 20 73 63 | 72 65 77 20 74 68 69 73 |ry to sc|rew this|
|00002f80| 20 75 70 20 62 79 20 6d | 61 6b 69 6e 67 20 31 31 | up by m|aking 11|
|00002f90| 2d 63 68 61 72 20 49 50 | 20 73 74 72 61 6e 64 73 |-char IP| strands|
|00002fa0| 2e 20 20 20 62 6c 30 30 | 70 00 a4 01 66 69 72 73 |.   bl00|p...firs|
|00002fb0| 74 4e 75 6d 62 65 72 20 | 3d 20 76 61 6c 28 6d 69 |tNumber |= val(mi|
|00002fc0| 64 28 74 65 6d 70 49 50 | 2c 20 31 2c 20 31 29 29 |d(tempIP|, 1, 1))|
|00002fd0| 20 20 20 27 20 50 75 6c | 6c 20 6f 66 66 20 74 68 |   ' Pul|l off th|
|00002fe0| 65 20 66 69 72 73 74 20 | 6e 75 6d 62 65 72 2c 20 |e first |number, |
|00002ff0| 77 68 69 63 68 20 52 42 | 20 61 70 70 61 72 65 6e |which RB| apparen|
|00003000| 74 6c 79 20 63 61 6e 27 | 74 20 68 61 6e 64 6c 65 |tly can'|t handle|
|00003010| 1a 74 65 6d 70 49 50 20 | 3d 20 6d 69 64 28 74 65 |.tempIP |= mid(te|
|00003020| 6d 70 49 50 2c 20 32 2c | 20 39 29 00 8d 01 74 65 |mpIP, 2,| 9)...te|
|00003030| 6d 70 42 53 74 72 65 61 | 6d 20 3d 20 47 65 74 46 |mpBStrea|m = GetF|
|00003040| 6f 6c 64 65 72 49 74 65 | 6d 28 22 3a 50 68 61 74 |olderIte|m(":Phat|
|00003050| 20 53 65 74 74 69 6e 67 | 73 3a 49 50 74 65 6d 70 | Setting|s:IPtemp|
|00003060| 22 29 2e 43 72 65 61 74 | 65 42 69 6e 61 72 79 46 |").Creat|eBinaryF|
|00003070| 69 6c 65 28 22 74 65 78 | 74 22 29 21 74 65 6d 70 |ile("tex|t")!temp|
|00003080| 42 53 74 72 65 61 6d 2e | 77 72 69 74 65 4c 6f 6e |BStream.|writeLon|
|00003090| 67 20 76 61 6c 28 74 65 | 6d 70 49 50 29 11 74 65 |g val(te|mpIP).te|
|000030a0| 6d 70 42 53 74 72 65 61 | 6d 2e 63 6c 6f 73 65 8c |mpBStrea|m.close.|
|000030b0| 01 74 65 6d 70 42 53 74 | 72 65 61 6d 20 3d 20 47 |.tempBSt|ream = G|
|000030c0| 65 74 46 6f 6c 64 65 72 | 49 74 65 6d 28 22 3a 50 |etFolder|Item(":P|
|000030d0| 68 61 74 20 53 65 74 74 | 69 6e 67 73 3a 49 50 74 |hat Sett|ings:IPt|
|000030e0| 65 6d 70 22 29 2e 4f 70 | 65 6e 41 73 42 69 6e 61 |emp").Op|enAsBina|
|000030f0| 72 79 46 69 6c 65 28 66 | 61 6c 73 65 29 0e 66 6f |ryFile(f|alse).fo|
|00003100| 72 20 69 20 3d 20 31 20 | 74 6f 20 34 1d 49 50 7a |r i = 1 |to 4.IPz|
|00003110| 28 69 29 20 3d 20 74 65 | 6d 70 42 53 74 72 65 61 |(i) = te|mpBStrea|
|00003120| 6d 2e 72 65 61 64 42 79 | 74 65 04 6e 65 78 74 11 |m.readBy|te.next.|
|00003130| 74 65 6d 70 42 53 74 72 | 65 61 6d 2e 63 6c 6f 73 |tempBStr|eam.clos|
|00003140| 65 84 01 47 65 74 46 6f | 6c 64 65 72 49 74 65 6d |e..GetFo|lderItem|
|00003150| 28 22 3a 50 68 61 74 20 | 53 65 74 74 69 6e 67 73 |(":Phat |Settings|
|00003160| 3a 49 50 74 65 6d 70 22 | 29 2e 64 65 6c 65 74 65 |:IPtemp"|).delete|
|00003170| 20 20 20 27 20 4b 69 6c | 6c 20 74 68 65 20 74 65 |   ' Kil|l the te|
|00003180| 6d 70 20 66 69 6c 65 00 | 18 66 6f 72 20 69 20 3d |mp file.|.for i =|
|00003190| 20 31 20 74 6f 20 66 69 | 72 73 74 4e 75 6d 62 65 | 1 to fi|rstNumbe|
|000031a0| 72 14 49 50 7a 28 31 29 | 20 3d 20 49 50 7a 28 31 |r.IPz(1)| = IPz(1|
|000031b0| 29 20 2b 20 35 39 15 49 | 50 7a 28 32 29 20 3d 20 |) + 59.I|Pz(2) = |
|000031c0| 49 50 7a 28 32 29 20 2b | 20 31 35 34 15 49 50 7a |IPz(2) +| 154.IPz|
|000031d0| 28 33 29 20 3d 20 49 50 | 7a 28 33 29 20 2b 20 32 |(3) = IP|z(3) + 2|
|000031e0| 30 32 04 6e 65 78 74 00 | 0e 66 6f 72 20 69 20 3d |02.next.|.for i =|
|000031f0| 20 31 20 74 6f 20 34 0e | 66 6f 72 20 6a 20 3d 20 | 1 to 4.|for j = |
|00003200| 32 20 74 6f 20 34 14 69 | 66 20 49 50 7a 28 6a 29 |2 to 4.i|f IPz(j)|
|00003210| 20 3e 20 32 35 35 20 74 | 68 65 6e 3d 49 50 7a 28 | > 255 t|hen=IPz(|
|00003220| 6a 20 2d 20 31 29 20 3d | 20 49 50 7a 28 6a 20 2d |j - 1) =| IPz(j -|
|00003230| 20 31 29 20 2b 20 28 28 | 49 50 7a 28 6a 29 20 2d | 1) + ((|IPz(j) -|
|00003240| 20 28 49 50 7a 28 6a 29 | 20 6d 6f 64 20 32 35 36 | (IPz(j)| mod 256|
|00003250| 29 29 20 2f 20 32 35 36 | 29 17 49 50 7a 28 6a 29 |)) / 256|).IPz(j)|
|00003260| 20 3d 20 49 50 7a 28 6a | 29 20 6d 6f 64 20 32 35 | = IPz(j|) mod 25|
|00003270| 36 06 65 6e 64 20 69 66 | 04 6e 65 78 74 04 6e 65 |6.end if|.next.ne|
|00003280| 78 74 00 8e 01 72 65 74 | 75 72 6e 20 53 74 72 28 |xt...ret|urn Str(|
|00003290| 49 50 7a 28 31 29 29 20 | 2b 20 22 2e 22 20 2b 20 |IPz(1)) |+ "." + |
|000032a0| 53 74 72 28 49 50 7a 28 | 32 29 29 20 2b 20 22 2e |Str(IPz(|2)) + ".|
|000032b0| 22 20 2b 20 53 74 72 28 | 49 50 7a 28 33 29 29 20 |" + Str(|IPz(3)) |
|000032c0| 2b 20 22 2e 22 20 2b 20 | 53 74 72 28 49 50 7a 28 |+ "." + |Str(IPz(|
|000032d0| 34 29 29 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |4)).End |Function|
|000032e0| 09 44 6f 43 6f 6d 70 61 | 72 65 27 6f 72 69 67 69 |.DoCompa|re'origi|
|000032f0| 6e 61 6c 20 61 73 20 73 | 74 72 69 6e 67 2c 20 63 |nal as s|tring, c|
|00003300| 68 65 63 6b 4d 61 73 6b | 20 61 73 20 73 74 72 69 |heckMask| as stri|
|00003310| 6e 67 07 62 6f 6f 6c 65 | 61 6e 00 8d 01 0b 8d 01 |ng.boole|an......|
|00003320| 0b 8f 01 86 01 46 75 6e | 63 74 69 6f 6e 20 44 6f |.....Fun|ction Do|
|00003330| 43 6f 6d 70 61 72 65 28 | 6f 72 69 67 69 6e 61 6c |Compare(|original|
|00003340| 20 61 73 20 73 74 72 69 | 6e 67 2c 20 63 68 65 63 | as stri|ng, chec|
|00003350| 6b 4d 61 73 6b 20 61 73 | 20 73 74 72 69 6e 67 29 |kMask as| string)|
|00003360| 20 41 73 20 62 6f 6f 6c | 65 61 6e 19 64 69 6d 20 | As bool|ean.dim |
|00003370| 6c 61 73 74 52 65 74 75 | 72 6e 20 61 73 20 69 6e |lastRetu|rn as in|
|00003380| 74 65 67 65 72 19 64 69 | 6d 20 6f 72 69 67 69 6e |teger.di|m origin|
|00003390| 61 6c 53 74 72 20 61 73 | 20 73 74 72 69 6e 67 16 |alStr as| string.|
|000033a0| 64 69 6d 20 63 68 65 63 | 6b 53 74 72 20 61 73 20 |dim chec|kStr as |
|000033b0| 73 74 72 69 6e 67 18 64 | 69 6d 20 6e 65 77 52 65 |string.d|im newRe|
|000033c0| 74 75 72 6e 20 61 73 20 | 69 6e 74 65 67 65 72 1e |turn as |integer.|
|000033d0| 64 69 6d 20 6f 72 69 67 | 69 6e 61 6c 53 63 61 6e |dim orig|inalScan|
|000033e0| 4c 6f 63 20 61 73 20 69 | 6e 74 65 67 65 72 15 64 |Loc as i|nteger.d|
|000033f0| 69 6d 20 73 63 61 6e 53 | 74 72 20 61 73 20 73 74 |im scanS|tr as st|
|00003400| 72 69 6e 67 10 64 69 6d | 20 69 20 61 73 20 69 6e |ring.dim| i as in|
|00003410| 74 65 67 65 72 10 64 69 | 6d 20 6a 20 61 73 20 69 |teger.di|m j as i|
|00003420| 6e 74 65 67 65 72 10 64 | 69 6d 20 6b 20 61 73 20 |nteger.d|im k as |
|00003430| 69 6e 74 65 67 65 72 19 | 64 69 6d 20 67 6f 74 52 |integer.|dim gotR|
|00003440| 65 73 75 6c 74 73 20 61 | 73 20 62 6f 6f 6c 65 61 |esults a|s boolea|
|00003450| 6e 1a 64 69 6d 20 73 63 | 61 6e 4d 61 74 63 68 65 |n.dim sc|anMatche|
|00003460| 64 20 61 73 20 62 6f 6f | 6c 65 61 6e 00 0e 6c 61 |d as boo|lean..la|
|00003470| 73 74 52 65 74 75 72 6e | 20 3d 20 30 0c 73 63 61 |stReturn| = 0.sca|
|00003480| 6e 53 74 72 20 3d 20 22 | 22 13 6f 72 69 67 69 6e |nStr = "|".origin|
|00003490| 61 6c 53 63 61 6e 4c 6f | 63 20 3d 20 30 00 2d 6f |alScanLo|c = 0.-o|
|000034a0| 72 69 67 69 6e 61 6c 53 | 74 72 20 3d 20 55 70 70 |riginalS|tr = Upp|
|000034b0| 65 72 63 61 73 65 28 22 | 20 22 20 2b 20 6f 72 69 |ercase("| " + ori|
|000034c0| 67 69 6e 61 6c 20 2b 20 | 22 20 22 29 2b 63 68 65 |ginal + |" ")+che|
|000034d0| 63 6b 53 74 72 20 3d 20 | 55 70 70 65 72 63 61 73 |ckStr = |Uppercas|
|000034e0| 65 28 22 20 22 20 2b 20 | 63 68 65 63 6b 4d 61 73 |e(" " + |checkMas|
|000034f0| 6b 20 2b 20 22 20 22 29 | 00 05 69 20 3d 20 30 00 |k + " ")|..i = 0.|
|00003500| 17 77 68 69 6c 65 20 69 | 20 3c 20 6c 65 6e 28 63 |.while i| < len(c|
|00003510| 68 65 63 6b 53 74 72 29 | 09 69 20 3d 20 69 20 2b |heckStr)|.i = i +|
|00003520| 20 31 00 21 69 66 20 6d | 69 64 28 63 68 65 63 6b | 1.!if m|id(check|
|00003530| 53 74 72 2c 20 69 2c 20 | 31 29 20 3d 20 22 2a 22 |Str, i, |1) = "*"|
|00003540| 20 74 68 65 6e 2c 27 20 | 46 6f 75 6e 64 20 61 20 | then,' |Found a |
|00003550| 2a 20 6d 61 74 63 68 2e | 20 20 42 65 74 74 65 72 |* match.|  Better|
|00003560| 20 73 74 61 72 74 20 73 | 63 61 6e 6e 69 6e 67 2e | start s|canning.|
|00003570| 2e 2e 00 12 67 6f 74 52 | 65 73 75 6c 74 73 20 3d |....gotR|esults =|
|00003580| 20 66 61 6c 73 65 81 01 | 66 6f 72 20 6a 20 3d 20 | false..|for j = |
|00003590| 28 6c 61 73 74 52 65 74 | 75 72 6e 20 2b 20 31 29 |(lastRet|urn + 1)|
|000035a0| 20 74 6f 20 28 6c 65 6e | 28 6f 72 69 67 69 6e 61 | to (len|(origina|
|000035b0| 6c 53 74 72 29 20 2d 20 | 6c 65 6e 28 73 63 61 6e |lStr) - |len(scan|
|000035c0| 53 74 72 29 20 2b 20 31 | 29 26 27 20 53 63 61 6e |Str) + 1|)&' Scan|
|000035d0| 20 63 6f 6e 73 74 61 6e | 74 6c 79 20 66 6f 72 20 | constan|tly for |
|000035e0| 61 20 6d 61 74 63 68 20 | 6c 6f 63 61 74 69 6f 6e |a match |location|
|000035f0| 3b 27 20 49 66 20 6e 6f | 6e 65 20 69 73 20 66 6f |;' If no|ne is fo|
|00003600| 75 6e 64 2c 20 6b 69 6c | 6c 20 74 68 65 20 77 68 |und, kil|l the wh|
|00003610| 6f 6c 65 20 70 72 6f 63 | 65 73 73 20 61 6e 64 20 |ole proc|ess and |
|00003620| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 00 12 73 63 |return f|alse..sc|
|00003630| 61 6e 4d 61 74 63 68 65 | 64 20 3d 20 74 72 75 65 |anMatche|d = true|
|00003640| 23 66 6f 72 20 6b 20 3d | 20 6a 20 74 6f 20 28 6a |#for k =| j to (j|
|00003650| 20 2b 20 6c 65 6e 28 73 | 63 61 6e 53 74 72 29 20 | + len(s|canStr) |
|00003660| 2d 20 31 29 a2 01 69 66 | 20 6d 69 64 28 73 63 61 |- 1)..if| mid(sca|
|00003670| 6e 53 74 72 2c 20 6b 20 | 2d 20 6a 20 2b 20 31 2c |nStr, k |- j + 1,|
|00003680| 20 31 29 20 3c 3e 20 22 | 3f 22 20 61 6e 64 20 6d | 1) <> "|?" and m|
|00003690| 69 64 28 73 63 61 6e 53 | 74 72 2c 20 6b 20 2d 20 |id(scanS|tr, k - |
|000036a0| 6a 20 2b 20 31 2c 20 31 | 29 20 3c 3e 20 6d 69 64 |j + 1, 1|) <> mid|
|000036b0| 28 6f 72 69 67 69 6e 61 | 6c 53 74 72 2c 20 6b 2c |(origina|lStr, k,|
|000036c0| 20 31 29 20 74 68 65 6e | 18 6b 20 3d 20 6a 20 2b | 1) then|.k = j +|
|000036d0| 20 6c 65 6e 28 73 63 61 | 6e 53 74 72 29 20 2d 20 | len(sca|nStr) - |
|000036e0| 31 13 73 63 61 6e 4d 61 | 74 63 68 65 64 20 3d 20 |1.scanMa|tched = |
|000036f0| 66 61 6c 73 65 06 65 6e | 64 20 69 66 04 6e 65 78 |false.en|d if.nex|
|00003700| 74 00 35 27 20 43 68 65 | 63 6b 20 69 66 20 74 68 |t.5' Che|ck if th|
|00003710| 65 20 73 63 61 6e 20 6d | 61 74 63 68 65 64 2e 20 |e scan m|atched. |
|00003720| 20 49 66 20 69 74 20 64 | 6f 65 73 2c 20 77 65 27 | If it d|oes, we'|
|00003730| 72 65 20 64 6f 6e 65 21 | 00 1a 69 66 20 73 63 61 |re done!|..if sca|
|00003740| 6e 4d 61 74 63 68 65 64 | 20 3d 20 74 72 75 65 20 |nMatched| = true |
|00003750| 74 68 65 6e 0e 6c 61 73 | 74 52 65 74 75 72 6e 20 |then.las|tReturn |
|00003760| 3d 20 6a 11 67 6f 74 52 | 65 73 75 6c 74 73 20 3d |= j.gotR|esults =|
|00003770| 20 74 72 75 65 27 6a 20 | 3d 20 6c 65 6e 28 6f 72 | true'j |= len(or|
|00003780| 69 67 69 6e 61 6c 53 74 | 72 29 20 2d 20 6c 65 6e |iginalSt|r) - len|
|00003790| 28 73 63 61 6e 53 74 72 | 29 20 2b 20 31 06 65 6e |(scanStr|) + 1.en|
|000037a0| 64 20 69 66 04 6e 65 78 | 74 00 22 27 20 49 66 20 |d if.nex|t."' If |
|000037b0| 6e 6f 20 72 65 73 75 6c | 74 73 2c 20 77 65 20 66 |no resul|ts, we f|
|000037c0| 61 69 6c 65 64 2e 20 20 | 43 72 61 70 2e 1a 69 66 |ailed.  |Crap..if|
|000037d0| 20 67 6f 74 52 65 73 75 | 6c 74 73 20 3d 20 66 61 | gotResu|lts = fa|
|000037e0| 6c 73 65 20 74 68 65 6e | 0c 72 65 74 75 72 6e 20 |lse then|.return |
|000037f0| 66 61 6c 73 65 06 65 6e | 64 20 69 66 00 0c 53 63 |false.en|d if..Sc|
|00003800| 61 6e 53 74 72 20 3d 20 | 22 22 04 65 6c 73 65 27 |anStr = |"".else'|
|00003810| 73 63 61 6e 53 74 72 20 | 3d 20 73 63 61 6e 53 74 |scanStr |= scanSt|
|00003820| 72 20 2b 20 6d 69 64 28 | 63 68 65 63 6b 53 74 72 |r + mid(|checkStr|
|00003830| 2c 20 69 2c 20 31 29 18 | 27 20 41 64 64 20 74 6f |, i, 1).|' Add to|
|00003840| 20 74 68 65 20 73 63 61 | 6e 20 73 74 72 69 6e 67 | the sca|n string|
|00003850| 06 65 6e 64 20 69 66 04 | 77 65 6e 64 00 2d 27 20 |.end if.|wend.-' |
|00003860| 43 68 65 63 6b 20 74 68 | 65 20 76 65 72 79 20 65 |Check th|e very e|
|00003870| 6e 64 20 74 6f 20 6d 61 | 6b 65 20 73 75 72 65 20 |nd to ma|ke sure |
|00003880| 69 74 27 73 20 61 6c 6c | 20 4f 4b 00 12 73 63 61 |it's all| OK..sca|
|00003890| 6e 4d 61 74 63 68 65 64 | 20 3d 20 74 72 75 65 81 |nMatched| = true.|
|000038a0| 01 66 6f 72 20 69 20 3d | 20 28 6c 65 6e 28 6f 72 |.for i =| (len(or|
|000038b0| 69 67 69 6e 61 6c 53 74 | 72 29 20 2d 20 6c 65 6e |iginalSt|r) - len|
|000038c0| 28 73 63 61 6e 53 74 72 | 29 20 2b 20 31 29 20 74 |(scanStr|) + 1) t|
|000038d0| 6f 20 6c 65 6e 28 6f 72 | 69 67 69 6e 61 6c 53 74 |o len(or|iginalSt|
|000038e0| 72 29 96 02 69 66 20 6d | 69 64 28 6f 72 69 67 69 |r)..if m|id(origi|
|000038f0| 6e 61 6c 53 74 72 2c 20 | 69 2c 20 31 29 20 3c 3e |nalStr, |i, 1) <>|
|00003900| 20 6d 69 64 28 73 63 61 | 6e 53 74 72 2c 20 69 20 | mid(sca|nStr, i |
|00003910| 2d 20 6c 65 6e 28 6f 72 | 69 67 69 6e 61 6c 53 74 |- len(or|iginalSt|
|00003920| 72 29 20 2b 20 6c 65 6e | 28 73 63 61 6e 53 74 72 |r) + len|(scanStr|
|00003930| 29 2c 20 31 29 20 61 6e | 64 20 6d 69 64 28 73 63 |), 1) an|d mid(sc|
|00003940| 61 6e 53 74 72 2c 20 69 | 20 2d 20 6c 65 6e 28 6f |anStr, i| - len(o|
|00003950| 72 69 67 69 6e 61 6c 53 | 74 72 29 20 2b 20 6c 65 |riginalS|tr) + le|
|00003960| 6e 28 73 63 61 6e 53 74 | 72 29 2c 20 31 29 20 3c |n(scanSt|r), 1) <|
|00003970| 3e 20 22 3f 22 20 74 68 | 65 6e 13 73 63 61 6e 4d |> "?" th|en.scanM|
|00003980| 61 74 63 68 65 64 20 3d | 20 66 61 6c 73 65 14 69 |atched =| false.i|
|00003990| 20 3d 20 6c 65 6e 28 6f | 72 69 67 69 6e 61 6c 53 | = len(o|riginalS|
|000039a0| 74 72 29 06 65 6e 64 20 | 69 66 04 6e 65 78 74 00 |tr).end |if.next.|
|000039b0| 1b 69 66 20 73 63 61 6e | 4d 61 74 63 68 65 64 20 |.if scan|Matched |
|000039c0| 3d 20 66 61 6c 73 65 20 | 74 68 65 6e 0c 72 65 74 |= false |then.ret|
|000039d0| 75 72 6e 20 66 61 6c 73 | 65 06 65 6e 64 20 69 66 |urn fals|e.end if|
|000039e0| 00 21 27 20 41 6c 6c 20 | 4f 4b 2c 20 77 68 69 63 |.!' All |OK, whic|
|000039f0| 68 20 6d 65 61 6e 73 20 | 69 74 20 6d 61 74 63 68 |h means |it match|
|00003a00| 65 64 21 0b 72 65 74 75 | 72 6e 20 74 72 75 65 0c |ed!.retu|rn true.|
|00003a10| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 00 06 07 52 |End Func|tion...R|
|00003a20| 65 73 69 7a 65 64 01 00 | 01 00 03 0d 53 75 62 20 |esized..|....Sub |
|00003a30| 52 65 73 69 7a 65 64 28 | 29 00 07 45 6e 64 20 53 |Resized(|)..End S|
|00003a40| 75 62 0a 44 72 6f 70 4f | 62 6a 65 63 74 01 00 01 |ub.DropO|bject...|
|00003a50| 00 03 1f 53 75 62 20 44 | 72 6f 70 4f 62 6a 65 63 |...Sub D|ropObjec|
|00003a60| 74 28 6f 62 6a 20 41 73 | 20 44 72 61 67 49 74 65 |t(obj As| DragIte|
|00003a70| 6d 29 00 07 45 6e 64 20 | 53 75 62 05 50 61 69 6e |m)..End |Sub.Pain|
|00003a80| 74 01 00 01 00 03 18 53 | 75 62 20 50 61 69 6e 74 |t......S|ub Paint|
|00003a90| 28 67 20 41 73 20 47 72 | 61 70 68 69 63 73 29 00 |(g As Gr|aphics).|
|00003aa0| 07 45 6e 64 20 53 75 62 | 0b 43 61 6e 63 65 6c 43 |.End Sub|.CancelC|
|00003ab0| 6c 6f 73 65 01 00 01 00 | 03 21 46 75 6e 63 74 69 |lose....|.!Functi|
|00003ac0| 6f 6e 20 43 61 6e 63 65 | 6c 43 6c 6f 73 65 28 29 |on Cance|lClose()|
|00003ad0| 20 41 73 20 42 6f 6f 6c | 65 61 6e 00 0c 45 6e 64 | As Bool|ean..End|
|00003ae0| 20 46 75 6e 63 74 69 6f | 6e 0f 45 6e 61 62 6c 65 | Functio|n.Enable|
|00003af0| 4d 65 6e 75 49 74 65 6d | 73 01 00 02 20 04 15 53 |MenuItem|s... ..S|
|00003b00| 75 62 20 45 6e 61 62 6c | 65 4d 65 6e 75 49 74 65 |ub Enabl|eMenuIte|
|00003b10| 6d 73 28 29 17 46 69 6c | 65 51 75 69 74 2e 65 6e |ms().Fil|eQuit.en|
|00003b20| 61 62 6c 65 64 20 3d 20 | 74 72 75 65 20 41 70 70 |abled = |true App|
|00003b30| 6c 65 41 62 6f 75 74 50 | 68 61 74 49 52 43 2e 45 |leAboutP|hatIRC.E|
|00003b40| 6e 61 62 6c 65 64 20 3d | 20 74 72 75 65 07 45 6e |nabled =| true.En|
|00003b50| 64 20 53 75 62 04 4f 70 | 65 6e 84 01 10 84 01 10 |d Sub.Op|en......|
|00003b60| bf 01 0a 53 75 62 20 4f | 70 65 6e 28 29 10 64 69 |...Sub O|pen().di|
|00003b70| 6d 20 69 20 61 73 20 69 | 6e 74 65 67 65 72 1c 64 |m i as i|nteger.d|
|00003b80| 69 6d 20 46 49 74 65 6d | 20 61 73 20 74 65 78 74 |im FItem| as text|
|00003b90| 49 6e 70 75 74 53 74 72 | 65 61 6d 19 64 69 6d 20 |InputStr|eam.dim |
|00003ba0| 52 49 74 65 6d 20 61 73 | 20 52 65 73 6f 75 72 63 |RItem as| Resourc|
|00003bb0| 65 46 6f 72 6b 15 64 69 | 6d 20 54 53 74 72 69 6e |eFork.di|m TStrin|
|00003bc0| 67 20 61 73 20 73 74 72 | 69 6e 67 25 64 69 6d 20 |g as str|ing%dim |
|00003bd0| 74 65 6d 70 4f 75 74 53 | 74 72 65 61 6d 20 61 73 |tempOutS|tream as|
|00003be0| 20 54 65 78 74 4f 75 74 | 70 75 74 53 74 72 65 61 | TextOut|putStrea|
|00003bf0| 6d 00 10 53 74 61 72 74 | 57 69 6e 64 6f 77 2e 73 |m..Start|Window.s|
|00003c00| 68 6f 77 13 53 74 61 72 | 74 57 69 6e 64 6f 77 2e |how.Star|tWindow.|
|00003c10| 72 65 66 72 65 73 68 00 | 0f 66 6f 72 20 69 20 3d |refresh.|.for i =|
|00003c20| 20 31 20 74 6f 20 33 30 | 2b 49 52 43 63 6f 6e 73 | 1 to 30|+IRCcons|
|00003c30| 6f 6c 65 2e 43 68 61 6e | 57 69 6e 64 6f 77 73 28 |ole.Chan|Windows(|
|00003c40| 69 29 20 3d 20 6e 65 77 | 20 43 68 61 6e 6e 65 6c |i) = new| Channel|
|00003c50| 44 4c 4f 47 22 53 74 61 | 72 74 57 69 6e 64 6f 77 |DLOG"Sta|rtWindow|
|00003c60| 2e 50 72 6f 67 72 65 73 | 73 42 61 72 31 2e 76 61 |.Progres|sBar1.va|
|00003c70| 6c 75 65 20 3d 20 69 04 | 6e 65 78 74 00 24 53 74 |lue = i.|next.$St|
|00003c80| 61 72 74 57 69 6e 64 6f | 77 2e 50 72 6f 67 72 65 |artWindo|w.Progre|
|00003c90| 73 73 42 61 72 31 2e 4d | 61 78 69 6d 75 6d 20 3d |ssBar1.M|aximum =|
|00003ca0| 20 39 38 53 74 61 72 74 | 57 69 6e 64 6f 77 2e 53 | 98Start|Window.S|
|00003cb0| 74 61 74 69 63 54 65 78 | 74 31 2e 74 65 78 74 20 |taticTex|t1.text |
|00003cc0| 3d 20 22 50 75 6d 70 69 | 6e 27 20 44 61 20 50 68 |= "Pumpi|n' Da Ph|
|00003cd0| 61 74 20 53 6f 75 6e 64 | 7a c9 22 13 53 74 61 72 |at Sound|z.".Star|
|00003ce0| 74 57 69 6e 64 6f 77 2e | 52 65 66 72 65 73 68 00 |tWindow.|Refresh.|
|00003cf0| 89 01 52 49 74 65 6d 20 | 3d 20 47 65 74 46 6f 6c |..RItem |= GetFol|
|00003d00| 64 65 72 49 74 65 6d 28 | 22 3a 50 68 61 74 20 53 |derItem(|":Phat S|
|00003d10| 65 74 74 69 6e 67 73 3a | 50 68 61 74 20 53 6f 75 |ettings:|Phat Sou|
|00003d20| 6e 64 7a 2e 72 73 72 63 | 22 29 2e 4f 70 65 6e 52 |ndz.rsrc|").OpenR|
|00003d30| 65 73 6f 75 72 63 65 46 | 6f 72 6b 00 0e 66 6f 72 |esourceF|ork..for|
|00003d40| 20 69 20 3d 20 31 20 74 | 6f 20 39 24 53 6f 75 6e | i = 1 t|o 9$Soun|
|00003d50| 64 46 58 28 69 29 20 3d | 20 52 49 74 65 6d 2e 47 |dFX(i) =| RItem.G|
|00003d60| 65 74 53 6f 75 6e 64 28 | 69 20 2b 20 31 32 37 29 |etSound(|i + 127)|
|00003d70| 22 53 74 61 72 74 57 69 | 6e 64 6f 77 2e 50 72 6f |"StartWi|ndow.Pro|
|00003d80| 67 72 65 73 73 42 61 72 | 31 2e 56 61 6c 75 65 20 |gressBar|1.Value |
|00003d90| 3d 20 69 04 6e 65 78 74 | 0b 52 49 74 65 6d 2e 63 |= i.next|.RItem.c|
|00003da0| 6c 6f 73 65 00 81 01 69 | 66 20 47 65 74 46 6f 6c |lose...i|f GetFol|
|00003db0| 64 65 72 49 74 65 6d 28 | 22 3a 50 68 61 74 20 53 |derItem(|":Phat S|
|00003dc0| 65 74 74 69 6e 67 73 3a | 48 6f 6d 69 65 7a 2e 73 |ettings:|Homiez.s|
|00003dd0| 65 74 22 29 2e 45 78 69 | 73 74 73 20 3d 20 66 61 |et").Exi|sts = fa|
|00003de0| 6c 73 65 20 74 68 65 6e | 89 01 74 65 6d 70 4f 75 |lse then|..tempOu|
|00003df0| 74 53 74 72 65 61 6d 20 | 3d 20 47 65 74 46 6f 6c |tStream |= GetFol|
|00003e00| 64 65 72 49 74 65 6d 28 | 22 3a 50 68 61 74 20 53 |derItem(|":Phat S|
|00003e10| 65 74 74 69 6e 67 73 3a | 48 6f 6d 69 65 7a 2e 73 |ettings:|Homiez.s|
|00003e20| 65 74 22 29 2e 43 72 65 | 61 74 65 54 65 78 74 46 |et").Cre|ateTextF|
|00003e30| 69 6c 65 25 53 74 61 72 | 74 57 69 6e 64 6f 77 2e |ile%Star|tWindow.|
|00003e40| 50 72 6f 67 72 65 73 73 | 42 61 72 31 2e 4d 61 78 |Progress|Bar1.Max|
|00003e50| 69 6d 75 6d 20 3d 20 35 | 30 32 53 74 61 72 74 57 |imum = 5|02StartW|
|00003e60| 69 6e 64 6f 77 2e 53 74 | 61 74 69 63 54 65 78 74 |indow.St|aticText|
|00003e70| 31 2e 74 65 78 74 20 3d | 20 22 42 75 69 6c 64 69 |1.text =| "Buildi|
|00003e80| 6e 27 20 44 61 20 48 6f | 6f 64 c9 22 13 53 74 61 |n' Da Ho|od.".Sta|
|00003e90| 72 74 57 69 6e 64 6f 77 | 2e 52 65 66 72 65 73 68 |rtWindow|.Refresh|
|00003ea0| 0f 66 6f 72 20 69 20 3d | 20 31 20 74 6f 20 35 30 |.for i =| 1 to 50|
|00003eb0| 20 74 65 6d 70 4f 75 74 | 53 74 72 65 61 6d 2e 77 | tempOut|Stream.w|
|00003ec0| 72 69 74 65 4c 69 6e 65 | 20 22 55 4d 61 73 6b 3d |riteLine| "UMask=|
|00003ed0| 22 23 74 65 6d 70 4f 75 | 74 53 74 72 65 61 6d 2e |"#tempOu|tStream.|
|00003ee0| 77 72 69 74 65 4c 69 6e | 65 20 22 4f 4f 6e 4a 6f |writeLin|e "OOnJo|
|00003ef0| 69 6e 3d 46 22 23 74 65 | 6d 70 4f 75 74 53 74 72 |in=F"#te|mpOutStr|
|00003f00| 65 61 6d 2e 77 72 69 74 | 65 4c 69 6e 65 20 22 56 |eam.writ|eLine "V|
|00003f10| 4f 6e 4a 6f 69 6e 3d 46 | 22 23 74 65 6d 70 4f 75 |OnJoin=F|"#tempOu|
|00003f20| 74 53 74 72 65 61 6d 2e | 77 72 69 74 65 4c 69 6e |tStream.|writeLin|
|00003f30| 65 20 22 42 4f 6e 4a 6f | 69 6e 3d 46 22 22 74 65 |e "BOnJo|in=F""te|
|00003f40| 6d 70 4f 75 74 53 74 72 | 65 61 6d 2e 77 72 69 74 |mpOutStr|eam.writ|
|00003f50| 65 4c 69 6e 65 20 22 4b | 52 65 61 73 6f 6e 3d 22 |eLine "K|Reason="|
|00003f60| 23 74 65 6d 70 4f 75 74 | 53 74 72 65 61 6d 2e 77 |#tempOut|Stream.w|
|00003f70| 72 69 74 65 4c 69 6e 65 | 20 22 49 67 6e 43 54 43 |riteLine| "IgnCTC|
|00003f80| 50 3d 46 22 23 74 65 6d | 70 4f 75 74 53 74 72 65 |P=F"#tem|pOutStre|
|00003f90| 61 6d 2e 77 72 69 74 65 | 4c 69 6e 65 20 22 49 67 |am.write|Line "Ig|
|00003fa0| 6e 4d 73 67 73 3d 46 22 | 23 74 65 6d 70 4f 75 74 |nMsgs=F"|#tempOut|
|00003fb0| 53 74 72 65 61 6d 2e 77 | 72 69 74 65 4c 69 6e 65 |Stream.w|riteLine|
|00003fc0| 20 22 49 67 6e 4e 6f 74 | 63 3d 46 22 22 53 74 61 | "IgnNot|c=F""Sta|
|00003fd0| 72 74 57 69 6e 64 6f 77 | 2e 50 72 6f 67 72 65 73 |rtWindow|.Progres|
|00003fe0| 73 42 61 72 31 2e 56 61 | 6c 75 65 20 3d 20 69 04 |sBar1.Va|lue = i.|
|00003ff0| 6e 65 78 74 22 74 65 6d | 70 4f 75 74 53 74 72 65 |next"tem|pOutStre|
|00004000| 61 6d 2e 77 72 69 74 65 | 20 22 4b 69 63 6b 52 65 |am.write| "KickRe|
|00004010| 6a 6f 69 6e 3d 54 22 22 | 74 65 6d 70 4f 75 74 53 |join=T""|tempOutS|
|00004020| 74 72 65 61 6d 2e 77 72 | 69 74 65 20 22 49 6e 76 |tream.wr|ite "Inv|
|00004030| 69 74 65 4a 6f 69 6e 3d | 46 22 13 74 65 6d 70 4f |iteJoin=|F".tempO|
|00004040| 75 74 53 74 72 65 61 6d | 2e 63 6c 6f 73 65 06 65 |utStream|.close.e|
|00004050| 6e 64 20 69 66 00 32 53 | 74 61 72 74 57 69 6e 64 |nd if.2S|tartWind|
|00004060| 6f 77 2e 53 74 61 74 69 | 63 54 65 78 74 31 2e 74 |ow.Stati|cText1.t|
|00004070| 65 78 74 20 3d 20 22 45 | 6e 74 65 72 69 6e 67 20 |ext = "E|ntering |
|00004080| 44 61 20 48 6f 6f 64 c9 | 22 13 53 74 61 72 74 57 |Da Hood.|".StartW|
|00004090| 69 6e 64 6f 77 2e 52 65 | 66 72 65 73 68 00 81 01 |indow.Re|fresh...|
|000040a0| 46 49 74 65 6d 20 3d 20 | 47 65 74 46 6f 6c 64 65 |FItem = |GetFolde|
|000040b0| 72 49 74 65 6d 28 22 3a | 50 68 61 74 20 53 65 74 |rItem(":|Phat Set|
|000040c0| 74 69 6e 67 73 3a 48 6f | 6d 69 65 7a 2e 73 65 74 |tings:Ho|miez.set|
|000040d0| 22 29 2e 4f 70 65 6e 41 | 73 54 65 78 74 46 69 6c |").OpenA|sTextFil|
|000040e0| 65 00 0f 66 6f 72 20 69 | 20 3d 20 31 20 74 6f 20 |e..for i| = 1 to |
|000040f0| 35 30 22 53 74 61 72 74 | 57 69 6e 64 6f 77 2e 50 |50"Start|Window.P|
|00004100| 72 6f 67 72 65 73 73 42 | 61 72 31 2e 56 61 6c 75 |rogressB|ar1.Valu|
|00004110| 65 20 3d 20 69 00 18 54 | 53 74 72 69 6e 67 20 3d |e = i..T|String =|
|00004120| 20 46 49 74 65 6d 2e 52 | 65 61 64 4c 69 6e 65 34 | FItem.R|eadLine4|
|00004130| 66 72 69 65 6e 64 73 2e | 4d 61 73 6b 73 28 69 29 |friends.|Masks(i)|
|00004140| 20 3d 20 4d 69 64 28 54 | 53 74 72 69 6e 67 2c 20 | = Mid(T|String, |
|00004150| 37 2c 20 6c 65 6e 28 54 | 53 74 72 69 6e 67 29 20 |7, len(T|String) |
|00004160| 2d 20 36 29 25 66 72 69 | 65 6e 64 73 2e 4d 61 73 |- 6)%fri|ends.Mas|
|00004170| 6b 7a 2e 41 64 64 52 6f | 77 20 66 72 69 65 6e 64 |kz.AddRo|w friend|
|00004180| 73 2e 4d 61 73 6b 73 28 | 69 29 1b 66 72 69 65 6e |s.Masks(|i).frien|
|00004190| 64 73 2e 4f 70 4f 6e 4a | 6f 69 6e 28 69 29 20 3d |ds.OpOnJ|oin(i) =|
|000041a0| 20 66 61 6c 73 65 24 69 | 66 20 6d 69 64 28 46 49 | false$i|f mid(FI|
|000041b0| 74 65 6d 2e 52 65 61 64 | 4c 69 6e 65 2c 20 39 29 |tem.Read|Line, 9)|
|000041c0| 20 3d 20 22 54 22 20 74 | 68 65 6e 1a 66 72 69 65 | = "T" t|hen.frie|
|000041d0| 6e 64 73 2e 4f 70 4f 6e | 4a 6f 69 6e 28 69 29 20 |nds.OpOn|Join(i) |
|000041e0| 3d 20 74 72 75 65 06 65 | 6e 64 20 69 66 1e 66 72 |= true.e|nd if.fr|
|000041f0| 69 65 6e 64 73 2e 56 6f | 69 63 65 4f 6e 4a 6f 69 |iends.Vo|iceOnJoi|
|00004200| 6e 28 69 29 20 3d 20 66 | 61 6c 73 65 24 69 66 20 |n(i) = f|alse$if |
|00004210| 6d 69 64 28 46 49 74 65 | 6d 2e 52 65 61 64 4c 69 |mid(FIte|m.ReadLi|
|00004220| 6e 65 2c 20 39 29 20 3d | 20 22 54 22 20 74 68 65 |ne, 9) =| "T" the|
|00004230| 6e 1d 66 72 69 65 6e 64 | 73 2e 56 6f 69 63 65 4f |n.friend|s.VoiceO|
|00004240| 6e 4a 6f 69 6e 28 69 29 | 20 3d 20 74 72 75 65 06 |nJoin(i)| = true.|
|00004250| 65 6e 64 20 69 66 1c 66 | 72 69 65 6e 64 73 2e 42 |end if.f|riends.B|
|00004260| 61 6e 4f 6e 4a 6f 69 6e | 28 69 29 20 3d 20 66 61 |anOnJoin|(i) = fa|
|00004270| 6c 73 65 24 69 66 20 6d | 69 64 28 46 49 74 65 6d |lse$if m|id(FItem|
|00004280| 2e 52 65 61 64 4c 69 6e | 65 2c 20 39 29 20 3d 20 |.ReadLin|e, 9) = |
|00004290| 22 54 22 20 74 68 65 6e | 1b 66 72 69 65 6e 64 73 |"T" then|.friends|
|000042a0| 2e 42 61 6e 4f 6e 4a 6f | 69 6e 28 69 29 20 3d 20 |.BanOnJo|in(i) = |
|000042b0| 74 72 75 65 06 65 6e 64 | 20 69 66 18 54 53 74 72 |true.end| if.TStr|
|000042c0| 69 6e 67 20 3d 20 46 49 | 74 65 6d 2e 52 65 61 64 |ing = FI|tem.Read|
|000042d0| 4c 69 6e 65 3a 66 72 69 | 65 6e 64 73 2e 4b 69 63 |Line:fri|ends.Kic|
|000042e0| 6b 52 65 61 73 6f 6e 73 | 28 69 29 20 3d 20 4d 69 |kReasons|(i) = Mi|
|000042f0| 64 28 54 53 74 72 69 6e | 67 2c 20 39 2c 20 6c 65 |d(TStrin|g, 9, le|
|00004300| 6e 28 54 53 74 72 69 6e | 67 29 20 2d 20 38 29 1d |n(TStrin|g) - 8).|
|00004310| 66 72 69 65 6e 64 73 2e | 49 67 6e 6f 72 65 43 54 |friends.|IgnoreCT|
|00004320| 43 50 28 69 29 20 3d 20 | 66 61 6c 73 65 24 69 66 |CP(i) = |false$if|
|00004330| 20 6d 69 64 28 46 49 74 | 65 6d 2e 52 65 61 64 4c | mid(FIt|em.ReadL|
|00004340| 69 6e 65 2c 20 39 29 20 | 3d 20 22 54 22 20 74 68 |ine, 9) |= "T" th|
|00004350| 65 6e 1c 66 72 69 65 6e | 64 73 2e 49 67 6e 6f 72 |en.frien|ds.Ignor|
|00004360| 65 43 54 43 50 28 69 29 | 20 3d 20 74 72 75 65 06 |eCTCP(i)| = true.|
|00004370| 65 6e 64 20 69 66 20 66 | 72 69 65 6e 64 73 2e 49 |end if f|riends.I|
|00004380| 67 6e 6f 72 65 50 72 69 | 76 4d 73 67 28 69 29 20 |gnorePri|vMsg(i) |
|00004390| 3d 20 66 61 6c 73 65 24 | 69 66 20 6d 69 64 28 46 |= false$|if mid(F|
|000043a0| 49 74 65 6d 2e 52 65 61 | 64 4c 69 6e 65 2c 20 39 |Item.Rea|dLine, 9|
|000043b0| 29 20 3d 20 22 54 22 20 | 74 68 65 6e 1f 66 72 69 |) = "T" |then.fri|
|000043c0| 65 6e 64 73 2e 49 67 6e | 6f 72 65 50 72 69 76 4d |ends.Ign|orePrivM|
|000043d0| 73 67 28 69 29 20 3d 20 | 74 72 75 65 06 65 6e 64 |sg(i) = |true.end|
|000043e0| 20 69 66 1f 66 72 69 65 | 6e 64 73 2e 49 67 6e 6f | if.frie|nds.Igno|
|000043f0| 72 65 4e 6f 74 69 63 65 | 28 69 29 20 3d 20 66 61 |reNotice|(i) = fa|
|00004400| 6c 73 65 24 69 66 20 6d | 69 64 28 46 49 74 65 6d |lse$if m|id(FItem|
|00004410| 2e 52 65 61 64 4c 69 6e | 65 2c 20 39 29 20 3d 20 |.ReadLin|e, 9) = |
|00004420| 22 54 22 20 74 68 65 6e | 1e 66 72 69 65 6e 64 73 |"T" then|.friends|
|00004430| 2e 49 67 6e 6f 72 65 4e | 6f 74 69 63 65 28 69 29 |.IgnoreN|otice(i)|
|00004440| 20 3d 20 74 72 75 65 06 | 65 6e 64 20 69 66 04 6e | = true.|end if.n|
|00004450| 65 78 74 00 22 66 72 69 | 65 6e 64 73 2e 52 65 74 |ext."fri|ends.Ret|
|00004460| 75 72 6e 4f 6e 4b 69 63 | 6b 2e 76 61 6c 75 65 20 |urnOnKic|k.value |
|00004470| 3d 20 66 61 6c 73 65 25 | 69 66 20 6d 69 64 28 46 |= false%|if mid(F|
|00004480| 49 74 65 6d 2e 52 65 61 | 64 4c 69 6e 65 2c 20 31 |Item.Rea|dLine, 1|
|00004490| 32 29 20 3d 20 22 54 22 | 20 74 68 65 6e 21 66 72 |2) = "T"| then!fr|
|000044a0| 69 65 6e 64 73 2e 52 65 | 74 75 72 6e 4f 6e 4b 69 |iends.Re|turnOnKi|
|000044b0| 63 6b 2e 76 61 6c 75 65 | 20 3d 20 74 72 75 65 06 |ck.value| = true.|
|000044c0| 65 6e 64 20 69 66 1e 66 | 72 69 65 6e 64 73 2e 41 |end if.f|riends.A|
|000044d0| 75 74 6f 4a 6f 69 6e 2e | 76 61 6c 75 65 20 3d 20 |utoJoin.|value = |
|000044e0| 66 61 6c 73 65 25 69 66 | 20 6d 69 64 28 46 49 74 |false%if| mid(FIt|
|000044f0| 65 6d 2e 52 65 61 64 4c | 69 6e 65 2c 20 31 32 29 |em.ReadL|ine, 12)|
|00004500| 20 3d 20 22 54 22 20 74 | 68 65 6e 1d 66 72 69 65 | = "T" t|hen.frie|
|00004510| 6e 64 73 2e 41 75 74 6f | 4a 6f 69 6e 2e 76 61 6c |nds.Auto|Join.val|
|00004520| 75 65 20 3d 20 74 72 75 | 65 06 65 6e 64 20 69 66 |ue = tru|e.end if|
|00004530| 0b 46 49 74 65 6d 2e 63 | 6c 6f 73 65 00 10 53 74 |.FItem.c|lose..St|
|00004540| 61 72 74 57 69 6e 64 6f | 77 2e 68 69 64 65 00 85 |artWindo|w.hide..|
|00004550| 01 46 49 74 65 6d 20 3d | 20 47 65 74 46 6f 6c 64 |.FItem =| GetFold|
|00004560| 65 72 49 74 65 6d 28 22 | 3a 50 68 61 74 20 53 65 |erItem("|:Phat Se|
|00004570| 74 74 69 6e 67 73 3a 43 | 6f 6e 6e 65 63 74 69 6f |ttings:C|onnectio|
|00004580| 6e 2e 73 65 74 22 29 2e | 4f 70 65 6e 41 73 54 65 |n.set").|OpenAsTe|
|00004590| 78 74 46 69 6c 65 21 53 | 65 72 76 65 72 46 69 65 |xtFile!S|erverFie|
|000045a0| 6c 64 2e 74 65 78 74 20 | 3d 20 46 49 74 65 6d 2e |ld.text |= FItem.|
|000045b0| 72 65 61 64 4c 69 6e 65 | 1f 50 6f 72 74 46 69 65 |readLine|.PortFie|
|000045c0| 6c 64 2e 74 65 78 74 20 | 3d 20 46 49 74 65 6d 2e |ld.text |= FItem.|
|000045d0| 72 65 61 64 4c 69 6e 65 | 1f 4e 69 63 6b 46 69 65 |readLine|.NickFie|
|000045e0| 6c 64 2e 74 65 78 74 20 | 3d 20 46 49 74 65 6d 2e |ld.text |= FItem.|
|000045f0| 72 65 61 64 4c 69 6e 65 | 1f 55 73 65 72 46 69 65 |readLine|.UserFie|
|00004600| 6c 64 2e 74 65 78 74 20 | 3d 20 46 49 74 65 6d 2e |ld.text |= FItem.|
|00004610| 72 65 61 64 4c 69 6e 65 | 22 49 52 43 4e 61 6d 65 |readLine|"IRCName|
|00004620| 46 69 65 6c 64 2e 74 65 | 78 74 20 3d 20 46 49 74 |Field.te|xt = FIt|
|00004630| 65 6d 2e 72 65 61 64 4c | 69 6e 65 0b 46 49 74 65 |em.readL|ine.FIte|
|00004640| 6d 2e 63 6c 6f 73 65 00 | 86 01 66 6f 72 20 69 20 |m.close.|..for i |
|00004650| 3d 20 31 20 74 6f 20 47 | 65 74 46 6f 6c 64 65 72 |= 1 to G|etFolder|
|00004660| 49 74 65 6d 28 22 3a 50 | 68 61 74 20 53 65 74 74 |Item(":P|hat Sett|
|00004670| 69 6e 67 73 3a 43 6f 6e | 6e 65 63 74 69 6f 6e 20 |ings:Con|nection |
|00004680| 53 63 72 69 70 74 73 3a | 22 29 2e 43 6f 75 6e 74 |Scripts:|").Count|
|00004690| 92 01 53 63 72 69 70 74 | 4d 65 6e 75 2e 61 64 64 |..Script|Menu.add|
|000046a0| 52 6f 77 20 47 65 74 46 | 6f 6c 64 65 72 49 74 65 |Row GetF|olderIte|
|000046b0| 6d 28 22 3a 50 68 61 74 | 20 53 65 74 74 69 6e 67 |m(":Phat| Setting|
|000046c0| 73 3a 43 6f 6e 6e 65 63 | 74 69 6f 6e 20 53 63 72 |s:Connec|tion Scr|
|000046d0| 69 70 74 73 3a 22 29 2e | 49 74 65 6d 28 69 29 2e |ipts:").|Item(i).|
|000046e0| 6e 61 6d 65 04 6e 65 78 | 74 00 21 66 6f 72 20 69 |name.nex|t.!for i|
|000046f0| 20 3d 20 31 20 74 6f 20 | 53 63 72 69 70 74 4d 65 | = 1 to |ScriptMe|
|00004700| 6e 75 2e 4c 69 73 74 43 | 6f 75 6e 74 27 69 66 20 |nu.ListC|ount'if |
|00004710| 53 63 72 69 70 74 4d 65 | 6e 75 2e 4c 69 73 74 28 |ScriptMe|nu.List(|
|00004720| 69 20 2d 20 31 29 20 3d | 20 22 4e 6f 6e 65 22 20 |i - 1) =| "None" |
|00004730| 74 68 65 6e 1c 53 63 72 | 69 70 74 4d 65 6e 75 2e |then.Scr|iptMenu.|
|00004740| 4c 69 73 74 49 6e 64 65 | 78 20 3d 20 69 20 2d 20 |ListInde|x = i - |
|00004750| 31 06 65 6e 64 20 69 66 | 04 6e 65 78 74 00 1f 50 |1.end if|.next..P|
|00004760| 68 61 74 49 52 43 53 74 | 61 72 74 75 70 2e 54 68 |hatIRCSt|artup.Th|
|00004770| 75 6d 70 65 72 2e 6d 6f | 64 65 20 3d 20 32 9d 01 |umper.mo|de = 2..|
|00004780| 50 68 61 74 49 52 43 53 | 74 61 72 74 75 70 2e 53 |PhatIRCS|tartup.S|
|00004790| 70 65 61 6b 65 72 31 20 | 3d 20 47 65 74 46 6f 6c |peaker1 |= GetFol|
|000047a0| 64 65 72 49 74 65 6d 28 | 22 3a 50 68 61 74 20 53 |derItem(|":Phat S|
|000047b0| 65 74 74 69 6e 67 73 3a | 53 74 61 72 74 75 70 3a |ettings:|Startup:|
|000047c0| 53 70 65 61 6b 65 72 31 | 2e 70 69 63 74 22 29 2e |Speaker1|.pict").|
|000047d0| 4f 70 65 6e 41 73 50 69 | 63 74 75 72 65 9d 01 50 |OpenAsPi|cture..P|
|000047e0| 68 61 74 49 52 43 53 74 | 61 72 74 75 70 2e 53 70 |hatIRCSt|artup.Sp|
|000047f0| 65 61 6b 65 72 32 20 3d | 20 47 65 74 46 6f 6c 64 |eaker2 =| GetFold|
|00004800| 65 72 49 74 65 6d 28 22 | 3a 50 68 61 74 20 53 65 |erItem("|:Phat Se|
|00004810| 74 74 69 6e 67 73 3a 53 | 74 61 72 74 75 70 3a 53 |ttings:S|tartup:S|
|00004820| 70 65 61 6b 65 72 32 2e | 70 69 63 74 22 29 2e 4f |peaker2.|pict").O|
|00004830| 70 65 6e 41 73 50 69 63 | 74 75 72 65 a1 01 50 68 |penAsPic|ture..Ph|
|00004840| 61 74 49 52 43 53 74 61 | 72 74 75 70 2e 43 61 6e |atIRCSta|rtup.Can|
|00004850| 76 61 73 31 2e 42 61 63 | 6b 64 72 6f 70 20 3d 20 |vas1.Bac|kdrop = |
|00004860| 47 65 74 46 6f 6c 64 65 | 72 49 74 65 6d 28 22 3a |GetFolde|rItem(":|
|00004870| 50 68 61 74 20 53 65 74 | 74 69 6e 67 73 3a 53 74 |Phat Set|tings:St|
|00004880| 61 72 74 75 70 3a 70 68 | 61 74 2e 70 69 63 74 22 |artup:ph|at.pict"|
|00004890| 29 2e 4f 70 65 6e 41 73 | 50 69 63 74 75 72 65 82 |).OpenAs|Picture.|
|000048a0| 01 47 65 74 46 6f 6c 64 | 65 72 49 74 65 6d 28 22 |.GetFold|erItem("|
|000048b0| 3a 50 68 61 74 20 53 65 | 74 74 69 6e 67 73 3a 53 |:Phat Se|ttings:S|
|000048c0| 74 61 72 74 75 70 3a 70 | 68 61 74 2e 73 66 69 6c |tartup:p|hat.sfil|
|000048d0| 22 29 2e 4f 70 65 6e 41 | 73 53 6f 75 6e 64 2e 70 |").OpenA|sSound.p|
|000048e0| 6c 61 79 3b 50 68 61 74 | 49 52 43 53 74 61 72 74 |lay;Phat|IRCStart|
|000048f0| 75 70 2e 53 70 65 61 6b | 65 72 31 31 2e 42 61 63 |up.Speak|er11.Bac|
|00004900| 6b 64 72 6f 70 20 3d 20 | 50 68 61 74 49 52 43 53 |kdrop = |PhatIRCS|
|00004910| 74 61 72 74 75 70 2e 53 | 70 65 61 6b 65 72 31 3b |tartup.S|peaker1;|
|00004920| 50 68 61 74 49 52 43 53 | 74 61 72 74 75 70 2e 53 |PhatIRCS|tartup.S|
|00004930| 70 65 61 6b 65 72 31 32 | 2e 42 61 63 6b 64 72 6f |peaker12|.Backdro|
|00004940| 70 20 3d 20 50 68 61 74 | 49 52 43 53 74 61 72 74 |p = Phat|IRCStart|
|00004950| 75 70 2e 53 70 65 61 6b | 65 72 31 18 50 68 61 74 |up.Speak|er1.Phat|
|00004960| 49 52 43 53 74 61 72 74 | 75 70 2e 73 68 6f 77 4d |IRCStart|up.showM|
|00004970| 6f 64 61 6c 00 07 45 6e | 64 20 53 75 62 02 08 46 |odal..En|d Sub..F|
|00004980| 69 6c 65 51 75 69 74 02 | 04 02 04 04 1a 46 75 6e |ileQuit.|.....Fun|
|00004990| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 20 41 73 20 |ction Ac|tion As |
|000049a0| 42 6f 6f 6c 65 61 6e 18 | 49 64 65 6e 74 44 2e 49 |Boolean.|IdentD.I|
|000049b0| 64 65 6e 74 53 6f 63 6b | 65 74 2e 63 6c 6f 73 65 |dentSock|et.close|
|000049c0| 04 71 75 69 74 0c 45 6e | 64 20 46 75 6e 63 74 69 |.quit.En|d Functi|
|000049d0| 6f 6e 11 41 70 70 6c 65 | 41 62 6f 75 74 50 68 61 |on.Apple|AboutPha|
|000049e0| 74 49 52 43 01 16 01 16 | 03 1a 46 75 6e 63 74 69 |tIRC....|..Functi|
|000049f0| 6f 6e 20 41 63 74 69 6f | 6e 20 41 73 20 42 6f 6f |on Actio|n As Boo|
|00004a00| 6c 65 61 6e 16 41 62 6f | 75 74 50 68 61 74 49 52 |lean.Abo|utPhatIR|
|00004a10| 43 2e 73 68 6f 77 4d 6f | 64 61 6c 0c 45 6e 64 20 |C.showMo|dal.End |
|00004a20| 46 75 6e 63 74 69 6f 6e | 00 12 07 00 00 24 06 53 |Function|.....$.S|
|00004a30| 6f 63 6b 65 74 00 00 00 | 00 04 05 45 72 72 6f 72 |ocket...|...Error|
|00004a40| 0d 00 0d 06 11 0b 53 75 | 62 20 45 72 72 6f 72 28 |......Su|b Error(|
|00004a50| 29 16 64 69 6d 20 65 72 | 72 43 6f 64 65 20 61 73 |).dim er|rCode as|
|00004a60| 20 69 6e 74 65 67 65 72 | 00 25 69 66 20 43 68 61 | integer|.%if Cha|
|00004a70| 73 69 6e 67 41 72 72 6f | 77 73 31 2e 76 69 73 69 |singArro|ws1.visi|
|00004a80| 62 6c 65 20 3d 20 74 72 | 75 65 20 74 68 65 6e 1a |ble = tr|ue then.|
|00004a90| 65 72 72 43 6f 64 65 20 | 3d 20 6d 65 2e 4c 61 73 |errCode |= me.Las|
|00004aa0| 74 45 72 72 6f 72 43 6f | 64 65 00 15 69 66 20 65 |tErrorCo|de..if e|
|00004ab0| 72 72 43 6f 64 65 20 3d | 20 31 30 31 20 74 68 65 |rrCode =| 101 the|
|00004ac0| 6e 23 4d 73 67 42 6f 78 | 20 22 43 6f 75 6c 64 20 |n#MsgBox| "Could |
|00004ad0| 6e 6f 74 20 6f 70 65 6e | 20 63 6f 6e 6e 65 63 74 |not open| connect|
|00004ae0| 69 6f 6e 2e 22 04 71 75 | 69 74 2a 65 6c 73 65 69 |ion.".qu|it*elsei|
|00004af0| 66 20 65 72 72 43 6f 64 | 65 20 3d 20 31 30 32 20 |f errCod|e = 102 |
|00004b00| 6f 72 20 65 72 72 43 6f | 64 65 20 3d 20 31 30 34 |or errCo|de = 104|
|00004b10| 20 74 68 65 6e 29 4d 73 | 67 42 6f 78 20 22 43 6f | then)Ms|gBox "Co|
|00004b20| 6e 6e 65 63 74 69 6f 6e | 20 74 6f 20 73 65 72 76 |nnection| to serv|
|00004b30| 65 72 20 77 61 73 20 63 | 6c 6f 73 65 64 2e 22 04 |er was c|losed.".|
|00004b40| 71 75 69 74 04 65 6c 73 | 65 2e 4d 73 67 42 6f 78 |quit.els|e.MsgBox|
|00004b50| 20 22 53 6f 63 6b 65 74 | 20 43 6f 6e 74 72 6f 6c | "Socket| Control|
|00004b60| 20 65 72 72 6f 72 3a 20 | 22 20 2b 20 53 74 72 28 | error: |" + Str(|
|00004b70| 65 72 72 43 6f 64 65 29 | 06 65 6e 64 20 69 66 06 |errCode)|.end if.|
|00004b80| 65 6e 64 20 69 66 07 45 | 6e 64 20 53 75 62 0c 53 |end if.E|nd Sub.S|
|00004b90| 65 6e 64 43 6f 6d 70 6c | 65 74 65 01 00 01 00 03 |endCompl|ete.....|
|00004ba0| 12 53 75 62 20 53 65 6e | 64 43 6f 6d 70 6c 65 74 |.Sub Sen|dComplet|
|00004bb0| 65 28 29 00 07 45 6e 64 | 20 53 75 62 0d 44 61 74 |e()..End| Sub.Dat|
|00004bc0| 61 41 76 61 69 6c 61 62 | 6c 65 08 11 08 11 0f 13 |aAvailab|le......|
|00004bd0| 53 75 62 20 44 61 74 61 | 41 76 61 69 6c 61 62 6c |Sub Data|Availabl|
|00004be0| 65 28 29 18 64 69 6d 20 | 74 65 6d 70 42 75 66 66 |e().dim |tempBuff|
|00004bf0| 65 72 20 61 73 20 73 74 | 72 69 6e 67 16 64 69 6d |er as st|ring.dim|
|00004c00| 20 74 65 6d 70 4c 6f 63 | 20 61 73 20 69 6e 74 65 | tempLoc| as inte|
|00004c10| 67 65 72 00 2b 64 61 74 | 61 42 75 66 66 65 72 20 |ger.+dat|aBuffer |
|00004c20| 3d 20 64 61 74 61 42 75 | 66 66 65 72 20 2b 20 49 |= dataBu|ffer + I|
|00004c30| 72 63 53 6f 63 6b 65 74 | 2e 72 65 61 64 41 6c 6c |rcSocket|.readAll|
|00004c40| 00 24 74 65 6d 70 4c 6f | 63 20 3d 20 49 6e 53 74 |.$tempLo|c = InSt|
|00004c50| 72 28 64 61 74 61 42 75 | 66 66 65 72 2c 20 63 68 |r(dataBu|ffer, ch|
|00004c60| 72 28 31 30 29 29 00 11 | 77 68 69 6c 65 20 74 65 |r(10))..|while te|
|00004c70| 6d 70 4c 6f 63 20 3e 20 | 30 2c 74 65 6d 70 42 75 |mpLoc > |0,tempBu|
|00004c80| 66 66 65 72 20 3d 20 6d | 69 64 28 64 61 74 61 42 |ffer = m|id(dataB|
|00004c90| 75 66 66 65 72 2c 20 31 | 2c 20 74 65 6d 70 4c 6f |uffer, 1|, tempLo|
|00004ca0| 63 20 2d 20 31 29 84 01 | 64 61 74 61 42 75 66 66 |c - 1)..|dataBuff|
|00004cb0| 65 72 20 3d 20 6d 69 64 | 28 64 61 74 61 42 75 66 |er = mid|(dataBuf|
|00004cc0| 66 65 72 2c 20 74 65 6d | 70 4c 6f 63 20 2b 20 31 |fer, tem|pLoc + 1|
|00004cd0| 2c 20 6c 65 6e 28 64 61 | 74 61 42 75 66 66 65 72 |, len(da|taBuffer|
|00004ce0| 29 20 2d 20 74 65 6d 70 | 4c 6f 63 29 23 49 52 43 |) - temp|Loc)#IRC|
|00004cf0| 63 6f 6e 73 6f 6c 65 2e | 68 61 6e 64 6c 65 43 6f |console.|handleCo|
|00004d00| 6d 6d 61 6e 64 20 74 65 | 6d 70 42 75 66 66 65 72 |mmand te|mpBuffer|
|00004d10| 24 74 65 6d 70 4c 6f 63 | 20 3d 20 49 6e 53 74 72 |$tempLoc| = InStr|
|00004d20| 28 64 61 74 61 42 75 66 | 66 65 72 2c 20 63 68 72 |(dataBuf|fer, chr|
|00004d30| 28 31 30 29 29 04 77 65 | 6e 64 07 45 6e 64 20 53 |(10)).we|nd.End S|
|00004d40| 75 62 09 43 6f 6e 6e 65 | 63 74 65 64 05 07 05 07 |ub.Conne|cted....|
|00004d50| 09 0f 53 75 62 20 43 6f | 6e 6e 65 63 74 65 64 28 |..Sub Co|nnected(|
|00004d60| 29 08 69 72 63 2e 68 69 | 64 65 8b 02 49 52 43 53 |).irc.hi|de..IRCS|
|00004d70| 6f 63 6b 65 74 2e 77 72 | 69 74 65 20 22 4e 49 43 |ocket.wr|ite "NIC|
|00004d80| 4b 20 22 20 2b 20 4e 69 | 63 6b 46 69 65 6c 64 2e |K " + Ni|ckField.|
|00004d90| 74 65 78 74 20 2b 20 63 | 68 72 28 31 33 29 20 2b |text + c|hr(13) +|
|00004da0| 20 63 68 72 28 31 30 29 | 20 2b 20 22 55 53 45 52 | chr(10)| + "USER|
|00004db0| 20 22 20 2b 20 55 73 65 | 72 46 69 65 6c 64 2e 74 | " + Use|rField.t|
|00004dc0| 65 78 74 20 2b 20 22 20 | 33 32 20 2e 20 3a 22 20 |ext + " |32 . :" |
|00004dd0| 2b 20 49 52 43 4e 61 6d | 65 46 69 65 6c 64 2e 74 |+ IRCNam|eField.t|
|00004de0| 65 78 74 20 2b 20 43 68 | 72 28 31 33 29 20 2b 20 |ext + Ch|r(13) + |
|00004df0| 43 68 72 28 31 30 29 0d | 50 72 69 76 4d 73 67 73 |Chr(10).|PrivMsgs|
|00004e00| 2e 73 68 6f 77 0f 69 72 | 63 43 6f 6e 73 6f 6c 65 |.show.ir|cConsole|
|00004e10| 2e 73 68 6f 77 23 69 72 | 63 43 6f 6e 73 6f 6c 65 |.show#ir|cConsole|
|00004e20| 2e 74 69 74 6c 65 20 3d | 20 53 65 72 76 65 72 46 |.title =| ServerF|
|00004e30| 69 65 6c 64 2e 74 65 78 | 74 26 69 72 63 43 6f 6e |ield.tex|t&ircCon|
|00004e40| 73 6f 6c 65 2e 4d 79 4e | 69 63 6b 6e 61 6d 65 20 |sole.MyN|ickname |
|00004e50| 3d 20 4e 69 63 6b 46 69 | 65 6c 64 2e 74 65 78 74 |= NickFi|eld.text|
|00004e60| 27 69 72 63 43 6f 6e 73 | 6f 6c 65 2e 43 75 72 72 |'ircCons|ole.Curr|
|00004e70| 65 6e 74 4e 69 63 6b 20 | 3d 20 4e 69 63 6b 46 69 |entNick |= NickFi|
|00004e80| 65 6c 64 2e 74 65 78 74 | 07 45 6e 64 20 53 75 62 |eld.text|.End Sub|
|00004e90| 00 00 07 00 00 b4 01 0a | 53 74 61 74 69 63 54 65 |........|StaticTe|
|00004ea0| 78 74 00 00 00 00 00 00 | 00 07 00 00 88 02 09 45 |xt......|.......E|
|00004eb0| 64 69 74 46 69 65 6c 64 | 00 00 00 00 00 00 00 07 |ditField|........|
|00004ec0| 00 00 b4 01 0a 53 74 61 | 74 69 63 54 65 78 74 00 |.....Sta|ticText.|
|00004ed0| 00 00 00 00 00 00 07 00 | 00 88 02 09 45 64 69 74 |........|....Edit|
|00004ee0| 46 69 65 6c 64 00 00 00 | 00 00 00 00 07 00 00 b4 |Field...|........|
|00004ef0| 01 0a 50 75 73 68 42 75 | 74 74 6f 6e 00 00 00 00 |..PushBu|tton....|
|00004f00| 01 06 41 63 74 69 6f 6e | 0e 35 0e 35 1a 0c 53 75 |..Action|.5.5..Su|
|00004f10| 62 20 41 63 74 69 6f 6e | 28 29 1d 64 69 6d 20 46 |b Action|().dim F|
|00004f20| 49 74 65 6d 20 61 73 20 | 54 65 78 74 4f 75 74 70 |Item as |TextOutp|
|00004f30| 75 74 53 74 72 65 61 6d | 00 17 43 6f 6e 4c 61 62 |utStream|..ConLab|
|00004f40| 65 6c 2e 76 69 73 69 62 | 6c 65 20 3d 20 74 72 75 |el.visib|le = tru|
|00004f50| 65 1d 43 68 61 73 69 6e | 67 41 72 72 6f 77 73 31 |e.Chasin|gArrows1|
|00004f60| 2e 76 69 73 69 62 6c 65 | 20 3d 20 74 72 75 65 00 |.visible| = true.|
|00004f70| 24 49 52 43 53 6f 63 6b | 65 74 2e 61 64 64 72 65 |$IRCSock|et.addre|
|00004f80| 73 73 20 3d 20 73 65 72 | 76 65 72 46 69 65 6c 64 |ss = ser|verField|
|00004f90| 2e 74 65 78 74 24 49 52 | 43 53 6f 63 6b 65 74 2e |.text$IR|CSocket.|
|00004fa0| 70 6f 72 74 20 3d 20 76 | 61 6c 28 70 6f 72 74 46 |port = v|al(portF|
|00004fb0| 69 65 6c 64 2e 74 65 78 | 74 29 19 49 64 65 6e 74 |ield.tex|t).Ident|
|00004fc0| 44 2e 49 64 65 6e 74 53 | 6f 63 6b 65 74 2e 6c 69 |D.IdentS|ocket.li|
|00004fd0| 73 74 65 6e 0b 49 64 65 | 6e 74 44 2e 73 68 6f 77 |sten.Ide|ntD.show|
|00004fe0| 16 49 64 65 6e 74 44 2e | 54 69 6d 65 72 31 2e 4d |.IdentD.|Timer1.M|
|00004ff0| 6f 64 65 20 3d 20 32 11 | 49 52 43 53 6f 63 6b 65 |ode = 2.|IRCSocke|
|00005000| 74 2e 63 6f 6e 6e 65 63 | 74 00 bc 01 49 52 43 63 |t.connec|t...IRCc|
|00005010| 6f 6e 73 6f 6c 65 2e 56 | 65 72 73 69 6f 6e 52 65 |onsole.V|ersionRe|
|00005020| 70 6c 79 20 3d 20 22 50 | 68 61 74 22 20 2b 20 43 |ply = "P|hat" + C|
|00005030| 68 72 28 32 29 20 2b 20 | 22 49 52 43 22 20 2b 20 |hr(2) + |"IRC" + |
|00005040| 43 68 72 28 32 29 20 2b | 20 22 20 31 2e 30 20 62 |Chr(2) +| " 1.0 b|
|00005050| 79 20 54 65 72 6e 2e 20 | 20 54 68 61 20 67 68 65 |y Tern. | Tha ghe|
|00005060| 74 74 6f 20 74 68 75 6d | 70 69 6e 27 20 49 52 43 |tto thum|pin' IRC|
|00005070| 20 63 6c 69 65 6e 74 20 | 66 6f 72 20 73 6d 61 63 | client |for smac|
|00005080| 6b 68 65 61 64 73 21 22 | 35 47 65 74 46 6f 6c 64 |kheads!"|5GetFold|
|00005090| 65 72 49 74 65 6d 28 22 | 3a 50 68 61 74 20 53 65 |erItem("|:Phat Se|
|000050a0| 74 74 69 6e 67 73 3a 43 | 6f 6e 6e 65 63 74 69 6f |ttings:C|onnectio|
|000050b0| 6e 2e 73 65 74 22 29 2e | 64 65 6c 65 74 65 85 01 |n.set").|delete..|
|000050c0| 46 49 74 65 6d 20 3d 20 | 47 65 74 46 6f 6c 64 65 |FItem = |GetFolde|
|000050d0| 72 49 74 65 6d 28 22 3a | 50 68 61 74 20 53 65 74 |rItem(":|Phat Set|
|000050e0| 74 69 6e 67 73 3a 43 6f | 6e 6e 65 63 74 69 6f 6e |tings:Co|nnection|
|000050f0| 2e 73 65 74 22 29 2e 43 | 72 65 61 74 65 54 65 78 |.set").C|reateTex|
|00005100| 74 46 69 6c 65 00 20 46 | 49 74 65 6d 2e 77 72 69 |tFile. F|Item.wri|
|00005110| 74 65 4c 69 6e 65 20 53 | 65 72 76 65 72 46 69 65 |teLine S|erverFie|
|00005120| 6c 64 2e 74 65 78 74 1e | 46 49 74 65 6d 2e 77 72 |ld.text.|FItem.wr|
|00005130| 69 74 65 4c 69 6e 65 20 | 50 6f 72 74 46 69 65 6c |iteLine |PortFiel|
|00005140| 64 2e 74 65 78 74 1e 46 | 49 74 65 6d 2e 77 72 69 |d.text.F|Item.wri|
|00005150| 74 65 4c 69 6e 65 20 4e | 69 63 6b 46 69 65 6c 64 |teLine N|ickField|
|00005160| 2e 74 65 78 74 1e 46 49 | 74 65 6d 2e 77 72 69 74 |.text.FI|tem.writ|
|00005170| 65 4c 69 6e 65 20 55 73 | 65 72 46 69 65 6c 64 2e |eLine Us|erField.|
|00005180| 74 65 78 74 21 46 49 74 | 65 6d 2e 77 72 69 74 65 |text!FIt|em.write|
|00005190| 4c 69 6e 65 20 49 52 43 | 4e 61 6d 65 46 69 65 6c |Line IRC|NameFiel|
|000051a0| 64 2e 74 65 78 74 0b 46 | 49 74 65 6d 2e 63 6c 6f |d.text.F|Item.clo|
|000051b0| 73 65 00 2e 4c 6f 63 61 | 6c 49 50 43 6f 64 65 20 |se..Loca|lIPCode |
|000051c0| 3d 20 45 6e 63 6f 64 65 | 49 50 28 49 72 63 53 6f |= Encode|IP(IrcSo|
|000051d0| 63 6b 65 74 2e 4c 6f 63 | 61 6c 41 64 64 72 65 73 |cket.Loc|alAddres|
|000051e0| 73 29 07 45 6e 64 20 53 | 75 62 00 00 07 00 00 a8 |s).End S|ub......|
|000051f0| 01 08 47 72 6f 75 70 42 | 6f 78 00 00 00 00 00 00 |..GroupB|ox......|
|00005200| 00 07 00 00 a8 01 08 47 | 72 6f 75 70 42 6f 78 00 |.......G|roupBox.|
|00005210| 00 00 00 00 00 00 07 00 | 00 b4 01 0a 53 74 61 74 |........|....Stat|
|00005220| 69 63 54 65 78 74 00 00 | 00 00 00 00 00 07 00 00 |icText..|........|
|00005230| 88 02 09 45 64 69 74 46 | 69 65 6c 64 00 00 00 00 |...EditF|ield....|
|00005240| 00 00 00 07 00 00 b4 01 | 0a 53 74 61 74 69 63 54 |........|.StaticT|
|00005250| 65 78 74 00 00 00 00 00 | 00 00 07 00 00 88 02 09 |ext.....|........|
|00005260| 45 64 69 74 46 69 65 6c | 64 00 00 00 00 00 00 00 |EditFiel|d.......|
|00005270| 07 00 00 b4 01 0a 53 74 | 61 74 69 63 54 65 78 74 |......St|aticText|
|00005280| 00 00 00 00 00 00 00 07 | 00 00 88 02 09 45 64 69 |........|.....Edi|
|00005290| 74 46 69 65 6c 64 00 00 | 00 00 00 00 00 07 00 00 |tField..|........|
|000052a0| a4 01 0d 43 68 61 73 69 | 6e 67 41 72 72 6f 77 73 |...Chasi|ngArrows|
|000052b0| 00 00 00 00 00 00 00 07 | 00 00 b4 01 0a 53 74 61 |........|.....Sta|
|000052c0| 74 69 63 54 65 78 74 00 | 00 00 00 00 00 00 07 00 |ticText.|........|
|000052d0| 00 b4 01 09 50 6f 70 75 | 70 4d 65 6e 75 00 00 00 |....Popu|pMenu...|
|000052e0| 00 00 00 00 07 00 00 b4 | 01 0a 53 74 61 74 69 63 |........|..Static|
|000052f0| 54 65 78 74 00 00 00 00 | 00 00 00 12 08 47 72 6f |Text....|.....Gro|
|00005300| 75 70 42 6f 78 15 04 4e | 61 6d 65 09 47 72 6f 75 |upBox..N|ame.Grou|
|00005310| 70 42 6f 78 31 05 49 6e | 64 65 78 0b 2d 32 31 34 |pBox1.In|dex.-214|
|00005320| 37 34 38 33 36 34 38 0d | 54 61 62 50 61 6e 65 6c |7483648.|TabPanel|
|00005330| 49 6e 64 65 78 01 30 07 | 56 69 73 69 62 6c 65 04 |Index.0.|Visible.|
|00005340| 54 72 75 65 04 4c 65 66 | 74 02 31 33 03 54 6f 70 |True.Lef|t.13.Top|
|00005350| 02 31 33 05 57 69 64 74 | 68 03 32 39 37 06 48 65 |.13.Widt|h.297.He|
|00005360| 69 67 68 74 02 38 38 0b | 42 61 6c 6c 6f 6f 6e 48 |ight.88.|BalloonH|
|00005370| 65 6c 70 00 13 44 69 73 | 61 62 6c 65 64 42 61 6c |elp..Dis|abledBal|
|00005380| 6c 6f 6f 6e 48 65 6c 70 | 00 08 4c 6f 63 6b 4c 65 |loonHelp|..LockLe|
|00005390| 66 74 05 46 61 6c 73 65 | 07 4c 6f 63 6b 54 6f 70 |ft.False|.LockTop|
|000053a0| 05 46 61 6c 73 65 09 4c | 6f 63 6b 52 69 67 68 74 |.False.L|ockRight|
|000053b0| 05 46 61 6c 73 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |.False.L|ockBotto|
|000053c0| 6d 05 46 61 6c 73 65 08 | 54 65 78 74 46 6f 6e 74 |m.False.|TextFont|
|000053d0| 06 53 79 73 74 65 6d 08 | 54 65 78 74 53 69 7a 65 |.System.|TextSize|
|000053e0| 02 31 32 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |.12.Bold|.False.I|
|000053f0| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00005400| 72 6c 69 6e 65 05 46 61 | 6c 73 65 07 43 61 70 74 |rline.Fa|lse.Capt|
|00005410| 69 6f 6e 0a 43 6f 6e 6e | 65 63 74 69 6f 6e 07 45 |ion.Conn|ection.E|
|00005420| 6e 61 62 6c 65 64 04 54 | 72 75 65 06 06 53 6f 63 |nabled.T|rue..Soc|
|00005430| 6b 65 74 06 04 4e 61 6d | 65 09 49 72 63 53 6f 63 |ket..Nam|e.IrcSoc|
|00005440| 6b 65 74 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ket.Inde|x.-21474|
|00005450| 38 33 36 34 38 04 4c 65 | 66 74 03 33 30 37 03 54 |83648.Le|ft.307.T|
|00005460| 6f 70 03 32 32 39 07 41 | 64 64 72 65 73 73 00 04 |op.229.A|ddress..|
|00005470| 50 6f 72 74 04 36 36 36 | 37 00 0a 53 74 61 74 69 |Port.666|7..Stati|
|00005480| 63 54 65 78 74 17 04 4e | 61 6d 65 0b 53 74 61 74 |cText..N|ame.Stat|
|00005490| 69 63 54 65 78 74 31 05 | 49 6e 64 65 78 0b 2d 32 |icText1.|Index.-2|
|000054a0| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|000054b0| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|000054c0| 65 04 54 72 75 65 04 4c | 65 66 74 02 32 35 03 54 |e.True.L|eft.25.T|
|000054d0| 6f 70 02 33 37 05 57 69 | 64 74 68 02 36 30 06 48 |op.37.Wi|dth.60.H|
|000054e0| 65 69 67 68 74 02 31 36 | 0b 42 61 6c 6c 6f 6f 6e |eight.16|.Balloon|
|000054f0| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|00005500| 6c 6c 6f 6f 6e 48 65 6c | 70 00 08 4c 6f 63 6b 4c |lloonHel|p..LockL|
|00005510| 65 66 74 05 46 61 6c 73 | 65 07 4c 6f 63 6b 54 6f |eft.Fals|e.LockTo|
|00005520| 70 05 46 61 6c 73 65 09 | 4c 6f 63 6b 52 69 67 68 |p.False.|LockRigh|
|00005530| 74 05 46 61 6c 73 65 0a | 4c 6f 63 6b 42 6f 74 74 |t.False.|LockBott|
|00005540| 6f 6d 05 46 61 6c 73 65 | 08 54 65 78 74 46 6f 6e |om.False|.TextFon|
|00005550| 74 06 53 79 73 74 65 6d | 08 54 65 78 74 53 69 7a |t.System|.TextSiz|
|00005560| 65 02 31 32 04 42 6f 6c | 64 05 46 61 6c 73 65 06 |e.12.Bol|d.False.|
|00005570| 49 74 61 6c 69 63 05 46 | 61 6c 73 65 09 55 6e 64 |Italic.F|alse.Und|
|00005580| 65 72 6c 69 6e 65 05 46 | 61 6c 73 65 04 54 65 78 |erline.F|alse.Tex|
|00005590| 74 07 53 65 72 76 65 72 | 3a 09 54 65 78 74 41 6c |t.Server|:.TextAl|
|000055a0| 69 67 6e 01 30 09 54 65 | 78 74 43 6f 6c 6f 72 01 |ign.0.Te|xtColor.|
|000055b0| 30 09 4d 75 6c 74 69 4c | 69 6e 65 05 46 61 6c 73 |0.MultiL|ine.Fals|
|000055c0| 65 01 09 45 64 69 74 46 | 69 65 6c 64 20 04 4e 61 |e..EditF|ield .Na|
|000055d0| 6d 65 0b 53 65 72 76 65 | 72 46 69 65 6c 64 05 49 |me.Serve|rField.I|
|000055e0| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|000055f0| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00005600| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00005610| 66 74 02 37 37 03 54 6f | 70 02 33 34 05 57 69 64 |ft.77.To|p.34.Wid|
|00005620| 74 68 03 32 32 32 06 48 | 65 69 67 68 74 02 32 32 |th.222.H|eight.22|
|00005630| 0b 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 13 44 69 |.Balloon|Help..Di|
|00005640| 73 61 62 6c 65 64 42 61 | 6c 6c 6f 6f 6e 48 65 6c |sabledBa|lloonHel|
|00005650| 70 00 08 4c 6f 63 6b 4c | 65 66 74 05 46 61 6c 73 |p..LockL|eft.Fals|
|00005660| 65 07 4c 6f 63 6b 54 6f | 70 05 46 61 6c 73 65 09 |e.LockTo|p.False.|
|00005670| 4c 6f 63 6b 52 69 67 68 | 74 05 46 61 6c 73 65 0a |LockRigh|t.False.|
|00005680| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 05 46 61 6c 73 65 |LockBott|om.False|
|00005690| 08 54 65 78 74 46 6f 6e | 74 06 53 79 73 74 65 6d |.TextFon|t.System|
|000056a0| 08 54 65 78 74 53 69 7a | 65 02 31 32 04 42 6f 6c |.TextSiz|e.12.Bol|
|000056b0| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|000056c0| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|000056d0| 61 6c 73 65 06 42 6f 72 | 64 65 72 04 54 72 75 65 |alse.Bor|der.True|
|000056e0| 09 4d 75 6c 74 69 4c 69 | 6e 65 05 46 61 6c 73 65 |.MultiLi|ne.False|
|000056f0| 09 53 63 72 6f 6c 6c 42 | 61 72 04 54 72 75 65 06 |.ScrollB|ar.True.|
|00005700| 53 74 79 6c 65 64 05 46 | 61 6c 73 65 08 50 61 73 |Styled.F|alse.Pas|
|00005710| 73 77 6f 72 64 05 46 61 | 6c 73 65 0c 55 73 65 46 |sword.Fa|lse.UseF|
|00005720| 6f 63 75 73 52 69 6e 67 | 04 54 72 75 65 08 52 65 |ocusRing|.True.Re|
|00005730| 61 64 4f 6e 6c 79 05 46 | 61 6c 73 65 09 4c 69 6d |adOnly.F|alse.Lim|
|00005740| 69 74 54 65 78 74 01 30 | 0a 41 63 63 65 70 74 54 |itText.0|.AcceptT|
|00005750| 61 62 73 05 46 61 6c 73 | 65 09 54 65 78 74 43 6f |abs.Fals|e.TextCo|
|00005760| 6c 6f 72 01 30 09 42 61 | 63 6b 43 6f 6c 6f 72 08 |lor.0.Ba|ckColor.|
|00005770| 31 36 37 37 37 32 31 35 | 07 45 6e 61 62 6c 65 64 |16777215|.Enabled|
|00005780| 04 54 72 75 65 04 54 65 | 78 74 0d 69 72 63 2e 66 |.True.Te|xt.irc.f|
|00005790| 72 65 65 69 2e 6e 65 74 | 02 0a 53 74 61 74 69 63 |reei.net|..Static|
|000057a0| 54 65 78 74 17 04 4e 61 | 6d 65 0b 53 74 61 74 69 |Text..Na|me.Stati|
|000057b0| 63 54 65 78 74 32 05 49 | 6e 64 65 78 0b 2d 32 31 |cText2.I|ndex.-21|
|000057c0| 34 37 34 38 33 36 34 38 | 0d 54 61 62 50 61 6e 65 |47483648|.TabPane|
|000057d0| 6c 49 6e 64 65 78 01 30 | 07 56 69 73 69 62 6c 65 |lIndex.0|.Visible|
|000057e0| 04 54 72 75 65 04 4c 65 | 66 74 02 32 35 03 54 6f |.True.Le|ft.25.To|
|000057f0| 70 02 37 30 05 57 69 64 | 74 68 02 36 30 06 48 65 |p.70.Wid|th.60.He|
|00005800| 69 67 68 74 02 31 36 0b | 42 61 6c 6c 6f 6f 6e 48 |ight.16.|BalloonH|
|00005810| 65 6c 70 00 13 44 69 73 | 61 62 6c 65 64 42 61 6c |elp..Dis|abledBal|
|00005820| 6c 6f 6f 6e 48 65 6c 70 | 00 08 4c 6f 63 6b 4c 65 |loonHelp|..LockLe|
|00005830| 66 74 05 46 61 6c 73 65 | 07 4c 6f 63 6b 54 6f 70 |ft.False|.LockTop|
|00005840| 05 46 61 6c 73 65 09 4c | 6f 63 6b 52 69 67 68 74 |.False.L|ockRight|
|00005850| 05 46 61 6c 73 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |.False.L|ockBotto|
|00005860| 6d 05 46 61 6c 73 65 08 | 54 65 78 74 46 6f 6e 74 |m.False.|TextFont|
|00005870| 06 53 79 73 74 65 6d 08 | 54 65 78 74 53 69 7a 65 |.System.|TextSize|
|00005880| 02 31 32 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |.12.Bold|.False.I|
|00005890| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|000058a0| 72 6c 69 6e 65 05 46 61 | 6c 73 65 04 54 65 78 74 |rline.Fa|lse.Text|
|000058b0| 05 50 6f 72 74 3a 09 54 | 65 78 74 41 6c 69 67 6e |.Port:.T|extAlign|
|000058c0| 01 30 09 54 65 78 74 43 | 6f 6c 6f 72 01 30 09 4d |.0.TextC|olor.0.M|
|000058d0| 75 6c 74 69 4c 69 6e 65 | 05 46 61 6c 73 65 03 09 |ultiLine|.False..|
|000058e0| 45 64 69 74 46 69 65 6c | 64 20 04 4e 61 6d 65 09 |EditFiel|d .Name.|
|000058f0| 50 6f 72 74 46 69 65 6c | 64 05 49 6e 64 65 78 0b |PortFiel|d.Index.|
|00005900| 2d 32 31 34 37 34 38 33 | 36 34 38 0d 54 61 62 50 |-2147483|648.TabP|
|00005910| 61 6e 65 6c 49 6e 64 65 | 78 01 30 07 56 69 73 69 |anelInde|x.0.Visi|
|00005920| 62 6c 65 04 54 72 75 65 | 04 4c 65 66 74 02 37 37 |ble.True|.Left.77|
|00005930| 03 54 6f 70 02 36 37 05 | 57 69 64 74 68 02 34 36 |.Top.67.|Width.46|
|00005940| 06 48 65 69 67 68 74 02 | 32 32 0b 42 61 6c 6c 6f |.Height.|22.Ballo|
|00005950| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|00005960| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|00005970| 6b 4c 65 66 74 05 46 61 | 6c 73 65 07 4c 6f 63 6b |kLeft.Fa|lse.Lock|
|00005980| 54 6f 70 05 46 61 6c 73 | 65 09 4c 6f 63 6b 52 69 |Top.Fals|e.LockRi|
|00005990| 67 68 74 05 46 61 6c 73 | 65 0a 4c 6f 63 6b 42 6f |ght.Fals|e.LockBo|
|000059a0| 74 74 6f 6d 05 46 61 6c | 73 65 08 54 65 78 74 46 |ttom.Fal|se.TextF|
|000059b0| 6f 6e 74 06 53 79 73 74 | 65 6d 08 54 65 78 74 53 |ont.Syst|em.TextS|
|000059c0| 69 7a 65 02 31 32 04 42 | 6f 6c 64 05 46 61 6c 73 |ize.12.B|old.Fals|
|000059d0| 65 06 49 74 61 6c 69 63 | 05 46 61 6c 73 65 09 55 |e.Italic|.False.U|
|000059e0| 6e 64 65 72 6c 69 6e 65 | 05 46 61 6c 73 65 06 42 |nderline|.False.B|
|000059f0| 6f 72 64 65 72 04 54 72 | 75 65 09 4d 75 6c 74 69 |order.Tr|ue.Multi|
|00005a00| 4c 69 6e 65 05 46 61 6c | 73 65 09 53 63 72 6f 6c |Line.Fal|se.Scrol|
|00005a10| 6c 42 61 72 04 54 72 75 | 65 06 53 74 79 6c 65 64 |lBar.Tru|e.Styled|
|00005a20| 05 46 61 6c 73 65 08 50 | 61 73 73 77 6f 72 64 05 |.False.P|assword.|
|00005a30| 46 61 6c 73 65 0c 55 73 | 65 46 6f 63 75 73 52 69 |False.Us|eFocusRi|
|00005a40| 6e 67 04 54 72 75 65 08 | 52 65 61 64 4f 6e 6c 79 |ng.True.|ReadOnly|
|00005a50| 05 46 61 6c 73 65 09 4c | 69 6d 69 74 54 65 78 74 |.False.L|imitText|
|00005a60| 01 30 0a 41 63 63 65 70 | 74 54 61 62 73 05 46 61 |.0.Accep|tTabs.Fa|
|00005a70| 6c 73 65 09 54 65 78 74 | 43 6f 6c 6f 72 01 30 09 |lse.Text|Color.0.|
|00005a80| 42 61 63 6b 43 6f 6c 6f | 72 08 31 36 37 37 37 32 |BackColo|r.167772|
|00005a90| 31 35 07 45 6e 61 62 6c | 65 64 04 54 72 75 65 04 |15.Enabl|ed.True.|
|00005aa0| 54 65 78 74 04 36 36 36 | 37 04 0a 50 75 73 68 42 |Text.666|7..PushB|
|00005ab0| 75 74 74 6f 6e 17 04 4e | 61 6d 65 0b 50 75 73 68 |utton..N|ame.Push|
|00005ac0| 42 75 74 74 6f 6e 31 05 | 49 6e 64 65 78 0b 2d 32 |Button1.|Index.-2|
|00005ad0| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|00005ae0| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00005af0| 65 04 54 72 75 65 04 4c | 65 66 74 03 32 35 30 03 |e.True.L|eft.250.|
|00005b00| 54 6f 70 03 32 35 32 05 | 57 69 64 74 68 02 36 30 |Top.252.|Width.60|
|00005b10| 06 48 65 69 67 68 74 02 | 32 30 0b 42 61 6c 6c 6f |.Height.|20.Ballo|
|00005b20| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|00005b30| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|00005b40| 6b 4c 65 66 74 05 46 61 | 6c 73 65 07 4c 6f 63 6b |kLeft.Fa|lse.Lock|
|00005b50| 54 6f 70 05 46 61 6c 73 | 65 09 4c 6f 63 6b 52 69 |Top.Fals|e.LockRi|
|00005b60| 67 68 74 05 46 61 6c 73 | 65 0a 4c 6f 63 6b 42 6f |ght.Fals|e.LockBo|
|00005b70| 74 74 6f 6d 05 46 61 6c | 73 65 08 54 65 78 74 46 |ttom.Fal|se.TextF|
|00005b80| 6f 6e 74 06 53 79 73 74 | 65 6d 08 54 65 78 74 53 |ont.Syst|em.TextS|
|00005b90| 69 7a 65 02 31 32 04 42 | 6f 6c 64 05 46 61 6c 73 |ize.12.B|old.Fals|
|00005ba0| 65 06 49 74 61 6c 69 63 | 05 46 61 6c 73 65 09 55 |e.Italic|.False.U|
|00005bb0| 6e 64 65 72 6c 69 6e 65 | 05 46 61 6c 73 65 07 43 |nderline|.False.C|
|00005bc0| 61 70 74 69 6f 6e 07 48 | 69 74 20 69 74 21 07 44 |aption.H|it it!.D|
|00005bd0| 65 66 61 75 6c 74 04 54 | 72 75 65 06 43 61 6e 63 |efault.T|rue.Canc|
|00005be0| 65 6c 05 46 61 6c 73 65 | 07 45 6e 61 62 6c 65 64 |el.False|.Enabled|
|00005bf0| 04 54 72 75 65 05 08 47 | 72 6f 75 70 42 6f 78 15 |.True..G|roupBox.|
|00005c00| 04 4e 61 6d 65 09 47 72 | 6f 75 70 42 6f 78 32 05 |.Name.Gr|oupBox2.|
|00005c10| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00005c20| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00005c30| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00005c40| 65 66 74 02 31 33 03 54 | 6f 70 03 31 31 36 05 57 |eft.13.T|op.116.W|
|00005c50| 69 64 74 68 03 32 39 37 | 06 48 65 69 67 68 74 03 |idth.297|.Height.|
|00005c60| 31 32 35 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |125.Ball|oonHelp.|
|00005c70| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|00005c80| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 05 46 |Help..Lo|ckLeft.F|
|00005c90| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|00005ca0| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|00005cb0| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|00005cc0| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 53 79 73 |lse.Text|Font.Sys|
|00005cd0| 74 65 6d 08 54 65 78 74 | 53 69 7a 65 02 31 32 04 |tem.Text|Size.12.|
|00005ce0| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00005cf0| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00005d00| 65 05 46 61 6c 73 65 07 | 43 61 70 74 69 6f 6e 08 |e.False.|Caption.|
|00005d10| 49 64 65 6e 74 69 74 79 | 07 45 6e 61 62 6c 65 64 |Identity|.Enabled|
|00005d20| 04 54 72 75 65 07 0a 53 | 74 61 74 69 63 54 65 78 |.True..S|taticTex|
|00005d30| 74 17 04 4e 61 6d 65 0b | 53 74 61 74 69 63 54 65 |t..Name.|StaticTe|
|00005d40| 78 74 33 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |xt3.Inde|x.-21474|
|00005d50| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00005d60| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00005d70| 75 65 04 4c 65 66 74 02 | 32 35 03 54 6f 70 03 31 |ue.Left.|25.Top.1|
|00005d80| 33 39 05 57 69 64 74 68 | 02 37 30 06 48 65 69 67 |39.Width|.70.Heig|
|00005d90| 68 74 02 31 36 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |ht.16.Ba|lloonHel|
|00005da0| 70 00 13 44 69 73 61 62 | 6c 65 64 42 61 6c 6c 6f |p..Disab|ledBallo|
|00005db0| 6f 6e 48 65 6c 70 00 08 | 4c 6f 63 6b 4c 65 66 74 |onHelp..|LockLeft|
|00005dc0| 05 46 61 6c 73 65 07 4c | 6f 63 6b 54 6f 70 05 46 |.False.L|ockTop.F|
|00005dd0| 61 6c 73 65 09 4c 6f 63 | 6b 52 69 67 68 74 05 46 |alse.Loc|kRight.F|
|00005de0| 61 6c 73 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 05 |alse.Loc|kBottom.|
|00005df0| 46 61 6c 73 65 08 54 65 | 78 74 46 6f 6e 74 06 53 |False.Te|xtFont.S|
|00005e00| 79 73 74 65 6d 08 54 65 | 78 74 53 69 7a 65 02 31 |ystem.Te|xtSize.1|
|00005e10| 32 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |2.Bold.F|alse.Ita|
|00005e20| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00005e30| 69 6e 65 05 46 61 6c 73 | 65 04 54 65 78 74 09 4e |ine.Fals|e.Text.N|
|00005e40| 69 63 6b 6e 61 6d 65 3a | 09 54 65 78 74 41 6c 69 |ickname:|.TextAli|
|00005e50| 67 6e 01 30 09 54 65 78 | 74 43 6f 6c 6f 72 01 30 |gn.0.Tex|tColor.0|
|00005e60| 09 4d 75 6c 74 69 4c 69 | 6e 65 05 46 61 6c 73 65 |.MultiLi|ne.False|
|00005e70| 08 09 45 64 69 74 46 69 | 65 6c 64 20 04 4e 61 6d |..EditFi|eld .Nam|
|00005e80| 65 09 4e 69 63 6b 46 69 | 65 6c 64 05 49 6e 64 65 |e.NickFi|eld.Inde|
|00005e90| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00005ea0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00005eb0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 03 |sible.Tr|ue.Left.|
|00005ec0| 31 30 34 03 54 6f 70 03 | 31 33 36 05 57 69 64 74 |104.Top.|136.Widt|
|00005ed0| 68 03 31 39 35 06 48 65 | 69 67 68 74 02 32 32 0b |h.195.He|ight.22.|
|00005ee0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|00005ef0| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|00005f00| 00 08 4c 6f 63 6b 4c 65 | 66 74 05 46 61 6c 73 65 |..LockLe|ft.False|
|00005f10| 07 4c 6f 63 6b 54 6f 70 | 05 46 61 6c 73 65 09 4c |.LockTop|.False.L|
|00005f20| 6f 63 6b 52 69 67 68 74 | 05 46 61 6c 73 65 0a 4c |ockRight|.False.L|
|00005f30| 6f 63 6b 42 6f 74 74 6f | 6d 05 46 61 6c 73 65 08 |ockBotto|m.False.|
|00005f40| 54 65 78 74 46 6f 6e 74 | 06 53 79 73 74 65 6d 08 |TextFont|.System.|
|00005f50| 54 65 78 74 53 69 7a 65 | 02 31 32 04 42 6f 6c 64 |TextSize|.12.Bold|
|00005f60| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00005f70| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00005f80| 6c 73 65 06 42 6f 72 64 | 65 72 04 54 72 75 65 09 |lse.Bord|er.True.|
|00005f90| 4d 75 6c 74 69 4c 69 6e | 65 05 46 61 6c 73 65 09 |MultiLin|e.False.|
|00005fa0| 53 63 72 6f 6c 6c 42 61 | 72 04 54 72 75 65 06 53 |ScrollBa|r.True.S|
|00005fb0| 74 79 6c 65 64 05 46 61 | 6c 73 65 08 50 61 73 73 |tyled.Fa|lse.Pass|
|00005fc0| 77 6f 72 64 05 46 61 6c | 73 65 0c 55 73 65 46 6f |word.Fal|se.UseFo|
|00005fd0| 63 75 73 52 69 6e 67 04 | 54 72 75 65 08 52 65 61 |cusRing.|True.Rea|
|00005fe0| 64 4f 6e 6c 79 05 46 61 | 6c 73 65 09 4c 69 6d 69 |dOnly.Fa|lse.Limi|
|00005ff0| 74 54 65 78 74 01 30 0a | 41 63 63 65 70 74 54 61 |tText.0.|AcceptTa|
|00006000| 62 73 05 46 61 6c 73 65 | 09 54 65 78 74 43 6f 6c |bs.False|.TextCol|
|00006010| 6f 72 01 30 09 42 61 63 | 6b 43 6f 6c 6f 72 08 31 |or.0.Bac|kColor.1|
|00006020| 36 37 37 37 32 31 35 07 | 45 6e 61 62 6c 65 64 04 |6777215.|Enabled.|
|00006030| 54 72 75 65 04 54 65 78 | 74 07 50 68 61 74 49 52 |True.Tex|t.PhatIR|
|00006040| 43 09 0a 53 74 61 74 69 | 63 54 65 78 74 17 04 4e |C..Stati|cText..N|
|00006050| 61 6d 65 0b 53 74 61 74 | 69 63 54 65 78 74 34 05 |ame.Stat|icText4.|
|00006060| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00006070| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00006080| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00006090| 65 66 74 02 32 35 03 54 | 6f 70 03 31 36 38 05 57 |eft.25.T|op.168.W|
|000060a0| 69 64 74 68 02 37 30 06 | 48 65 69 67 68 74 02 31 |idth.70.|Height.1|
|000060b0| 36 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |6.Balloo|nHelp..D|
|000060c0| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|000060d0| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|000060e0| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|000060f0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|00006100| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 05 46 61 6c 73 |.LockBot|tom.Fals|
|00006110| 65 08 54 65 78 74 46 6f | 6e 74 06 53 79 73 74 65 |e.TextFo|nt.Syste|
|00006120| 6d 08 54 65 78 74 53 69 | 7a 65 02 31 32 04 42 6f |m.TextSi|ze.12.Bo|
|00006130| 6c 64 05 46 61 6c 73 65 | 06 49 74 61 6c 69 63 05 |ld.False|.Italic.|
|00006140| 46 61 6c 73 65 09 55 6e | 64 65 72 6c 69 6e 65 05 |False.Un|derline.|
|00006150| 46 61 6c 73 65 04 54 65 | 78 74 09 55 73 65 72 6e |False.Te|xt.Usern|
|00006160| 61 6d 65 3a 09 54 65 78 | 74 41 6c 69 67 6e 01 30 |ame:.Tex|tAlign.0|
|00006170| 09 54 65 78 74 43 6f 6c | 6f 72 01 30 09 4d 75 6c |.TextCol|or.0.Mul|
|00006180| 74 69 4c 69 6e 65 05 46 | 61 6c 73 65 0a 09 45 64 |tiLine.F|alse..Ed|
|00006190| 69 74 46 69 65 6c 64 20 | 04 4e 61 6d 65 09 55 73 |itField |.Name.Us|
|000061a0| 65 72 46 69 65 6c 64 05 | 49 6e 64 65 78 0b 2d 32 |erField.|Index.-2|
|000061b0| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|000061c0| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|000061d0| 65 04 54 72 75 65 04 4c | 65 66 74 03 31 30 34 03 |e.True.L|eft.104.|
|000061e0| 54 6f 70 03 31 36 35 05 | 57 69 64 74 68 03 31 39 |Top.165.|Width.19|
|000061f0| 35 06 48 65 69 67 68 74 | 02 32 32 0b 42 61 6c 6c |5.Height|.22.Ball|
|00006200| 6f 6f 6e 48 65 6c 70 00 | 13 44 69 73 61 62 6c 65 |oonHelp.|.Disable|
|00006210| 64 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 08 4c 6f |dBalloon|Help..Lo|
|00006220| 63 6b 4c 65 66 74 05 46 | 61 6c 73 65 07 4c 6f 63 |ckLeft.F|alse.Loc|
|00006230| 6b 54 6f 70 05 46 61 6c | 73 65 09 4c 6f 63 6b 52 |kTop.Fal|se.LockR|
|00006240| 69 67 68 74 05 46 61 6c | 73 65 0a 4c 6f 63 6b 42 |ight.Fal|se.LockB|
|00006250| 6f 74 74 6f 6d 05 46 61 | 6c 73 65 08 54 65 78 74 |ottom.Fa|lse.Text|
|00006260| 46 6f 6e 74 06 53 79 73 | 74 65 6d 08 54 65 78 74 |Font.Sys|tem.Text|
|00006270| 53 69 7a 65 02 31 32 04 | 42 6f 6c 64 05 46 61 6c |Size.12.|Bold.Fal|
|00006280| 73 65 06 49 74 61 6c 69 | 63 05 46 61 6c 73 65 09 |se.Itali|c.False.|
|00006290| 55 6e 64 65 72 6c 69 6e | 65 05 46 61 6c 73 65 06 |Underlin|e.False.|
|000062a0| 42 6f 72 64 65 72 04 54 | 72 75 65 09 4d 75 6c 74 |Border.T|rue.Mult|
|000062b0| 69 4c 69 6e 65 05 46 61 | 6c 73 65 09 53 63 72 6f |iLine.Fa|lse.Scro|
|000062c0| 6c 6c 42 61 72 04 54 72 | 75 65 06 53 74 79 6c 65 |llBar.Tr|ue.Style|
|000062d0| 64 05 46 61 6c 73 65 08 | 50 61 73 73 77 6f 72 64 |d.False.|Password|
|000062e0| 05 46 61 6c 73 65 0c 55 | 73 65 46 6f 63 75 73 52 |.False.U|seFocusR|
|000062f0| 69 6e 67 04 54 72 75 65 | 08 52 65 61 64 4f 6e 6c |ing.True|.ReadOnl|
|00006300| 79 05 46 61 6c 73 65 09 | 4c 69 6d 69 74 54 65 78 |y.False.|LimitTex|
|00006310| 74 01 30 0a 41 63 63 65 | 70 74 54 61 62 73 05 46 |t.0.Acce|ptTabs.F|
|00006320| 61 6c 73 65 09 54 65 78 | 74 43 6f 6c 6f 72 01 30 |alse.Tex|tColor.0|
|00006330| 09 42 61 63 6b 43 6f 6c | 6f 72 08 31 36 37 37 37 |.BackCol|or.16777|
|00006340| 32 31 35 07 45 6e 61 62 | 6c 65 64 04 54 72 75 65 |215.Enab|led.True|
|00006350| 04 54 65 78 74 07 50 68 | 61 74 49 52 43 0b 0a 53 |.Text.Ph|atIRC..S|
|00006360| 74 61 74 69 63 54 65 78 | 74 17 04 4e 61 6d 65 0b |taticTex|t..Name.|
|00006370| 53 74 61 74 69 63 54 65 | 78 74 35 05 49 6e 64 65 |StaticTe|xt5.Inde|
|00006380| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00006390| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|000063a0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|000063b0| 32 35 03 54 6f 70 03 32 | 30 30 05 57 69 64 74 68 |25.Top.2|00.Width|
|000063c0| 02 36 30 06 48 65 69 67 | 68 74 02 31 36 0b 42 61 |.60.Heig|ht.16.Ba|
|000063d0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|000063e0| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|000063f0| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
+--------+-------------------------+-------------------------+--------+--------+